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内 容 简 介 


本 书 是 与 和 {FORTRAN 语言 程序 设计 一 FORTRAN95)( 王 丽 娟 等 编著 ,清华 大 学 出 版 社 , ISBN 
9787302483908) 相 配套 的 实验 指导 书 ,全 书 由 FORTRAN95 集成 开发 环境 `、 上 机 实验 指导 ,模拟 测试 .习题 
解析 与 模拟 测试 参考 答案 及 附录 组 成 ,其 中 :实验 指导 部 分 提供 了 12 个 实验 ,每 个 实验 均 包 含 实验 目的 、 
实验 内 容 、 实 验 要 求 .实验 步骤 .实验 小 结 和 课外 练习 等 内 容 ; 模 拟 测 试 部 分 给 出 了 3 套 模拟 测试 试卷 ,每 
套 试卷 包括 选择 题 .填空 题 ,程序 阅读 题 和 编程 题 4 种 题 型 ,全 面 考查 读者 的 理论 知识 和 编程 能 力 ;习题 解 
析 部 分 给 出 了 主教 材 前 13 章 部 分 习题 的 详细 解答 ;附录 部 分 给 出 了 上 机 实验 报告 的 通用 模板 ,以 及 
FORTRAN95 标准 函数 和 标准 子 例 行 程序 。 

本 书 针 对 程序 设计 初学 者 的 特点 ,强调 基本 概念 .基本 知识 .基本 方法 .基本 操作 的 学 习 和 掌握 ,重点 
强化 实践 能 力 的 训练 和 培养 ,是 一 本 颇具 特色 的 程序 设计 实验 教程 。 

本 书 可 作为 高 等 院 校 理 工科 专业 FORTRAN 程序 设计 课程 的 配套 实验 教材 ,也 可 作为 程序 设计 的 初 
学 者 ,从事 工 程 计算 的 工作 人 员 和 科研 人 员 的 参考 书 ，。 
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FORTRAN 语言 是 国内 外 广泛 使 用 的 、 适 用 于 数值 计算 的 计算 机 高 级 语言 ,我 国 大 多 
数 高 等 院 校 理 工科 专业 都 开设 了 “FORTRAN 程序 设计 ”课程 。 本 书 是 与 FORTRAN 语 
言 程 序 设计 一 一 FORTRAN95》(ISBN 9787302483908) 配套 的 实验 教材 ,主要 包括 以 下 
内 容 。 

(1) 以 可 运行 在 32 位 Windows 系统 下 的 Compaq Visual Fortran 6. 5 和 可 运行 在 64 
位 Windows 平台 下 的 Intel Visual Fortran 2011 为 例 ,介绍 了 FORTRAN95 的 集成 开发 环 
境 。 这 一 部 分 的 内 容 是 上 机 操作 的 基础 。 

(2) 上 机 实验 指导 。 为 了 便于 读者 上 机 实践 ,本 部 分 设计 了 12 个 实验 。 这 些 实验 和 课 
党 教学 紧密 配合 ,通过 有 针对 性 的 上 机 实践 ,读者 可 以 更 熟练 地 掌握 FORTRAN95 程序 设 
计 的 方法 ,并 培养 一 定 的 应 用 开发 能 力 。 

(3) 模拟 测试 。 该 部 分 给 出 了 3 套 模拟 试题 ,并 附 有 参考 答案 , 供 读者 目测 。 

(4) 习题 解析 。 根 据 教 学 反馈 情况 ,为 帮助 读者 进行 课外 练习 ,增加 了 这 部 分 的 内 容 。 

(D 概念 题 。 要 求 读 者 建立 起 有 关 的 正确 概念 。 

@ 程序 阅读 题 。 要 求 读 者 阅读 一 个 程序 或 一 些 语 句 、 表 达 式 ,能 正确 分 析 它 们 的 每 一 
个 步骤 或 每 一 个 含义 ,得 到 正确 结果 。 

O 编程 题 。 这 是 本 书 中 比例 最 大 的 一 类 习题 。 学 习 程 序 设 计 的 目的 是 为 了 编写 程序 ， 
能 否 正确 地 编写 出 程序 是 衡量 本 课程 是 否 学 好 的 主要 标志 。 

需要 说 明 的 是 ,在 编程 题 的 解答 中 ,编者 给 出 的 只 能 说 是 参考 答案 ,一 个 问题 可 以 有 多 
种 解决 方案 ,可 以 编写 出 不 同 的 程序 。 本 书 给 出 的 不 一 定 是 最 佳 答案 ,只 是 提供 了 一 种 解 题 
的 思路 和 方法 。 为 便于 阅读 ,程序 采用 了 句 齿 形 格式 来 表示 内 许 语 句 。 对 给 出 的 所 有 程序 ， 
一 律 不 做 文字 说 明 ,也 没 加 注释 ,这 一 方面 是 为 了 节省 篇 幅 , 更 重要 的 是 给 读者 留 下 思考 的 
余地 ,读者 可 以 从 分 析 这 些 程序 中 得 到 收获 ,至 少 可 以 提高 程序 阅读 的 能 力 。 

(5) 附录 。 本 书 提供 了 3 个 附录 ,给 出 了 上 机 实验 报告 通用 模板 ,通过 附录 可 快速 查阅 
FORTRAN95 标准 函数 和 标准 子 例 行 程序 。 

本 书 由 王 红 认 、 陈 权 主 编 , 段 志 东 参 编 。 全 书 由 李 玉 龙 主 审 、 定 稿 。 

由 于 时 间 仓 促 及 水 平 有 限 ,欢迎 读者 在 使 用 中 发 现 本 书 的 不 足 并 提出 宝贵 意见 ,以 便 再 
版 时 修改 。 
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FORTRANO?5 4£ Jf i& 4p 4 X 4B EL Ф m. AGB 32 位 Windows 系统 下 的 
Compaq Visual Fortran 6. 5 # 9 Jf] Æ 64 4% Windows 平台 下 的 IVF 2011, 


Compaq Visual Fortran 6.5 编译 环境 


ТЕ Windows 操作 系统 下 ,最 早 的 FORTRAN 是 微软 公司 开发 的 Microsoft Fortran 
PowerStation 4. 0 集成 开发 环境 ,用 于 FORTRANO90 程序 的 开发 。Fortran PowerStation 
4.0 Æ 1997 年 转让 给 DEC 公司 ,推出 Digital Visual Fortran 5. 0(DVF), 1998 € 1 月， 
DEC 公司 和 锌 Compaq 公司 收购 , Digital Visual Fortran 更 名 为 Compaq Visual Fortran 
(CVF) ,一 个 著名 的 版 本 是 Compaq Visual Fortran 6.5, Compaq 公司 并 人 惠普 公司 之 后 ， 
推出 新 版 Compaq Visual Fortran 6.6, 2005 年 CVF 开发 团队 加 盟 Intel 公司 ,惠普 公司 宣 
布 其 CVF 6.6 的 维护 截止 到 2005 年 12 月 31 日 ,IVF 9.0 将 作为 其 新 一 代 后 继 编 译 器 。 在 
使 用 CVF 6. 5/6. 6 编写 运行 FORTRAN 程序 时 ,只 需要 安装 Compaq Visual Fortran 6. 5/ 
6.6 即 可 。 这 是 因为 在 这 个 安装 源 程 序 中 ,Visual Fortran 已 经 被 组 合 ( 集 成 ) 在 Microsoft 
Visual Studio( 以 下 简称 VS) 的 集成 开发 环境 (IDE) 中 了 。VS 是 目前 最 流行 的 Windows 平 
台 应 用 程序 的 集成 开发 环境 ,所 以 CVF 可 以 直接 安装 使 用 。 这 与 Visual C/Visual C++ 类 
似 , 故 用 户 看 到 的 CVF 程序 编写 界面 与 Visual C/Visual C++ 基本 是 一 致 的 。 


1.1 Compaq Visual Fortran 6. 5 的 安装 与 启动 


1.1.1 Compaq Visual Fortran 6.5 BJ Zł% 


(1) 打开 Compaq Visual Fortran 6. 5 安装 应 用 程序 包 ,运行 安装 程序 (双击 setup), BÉ 
幕 出 现 安装 起 始 界面 , 单 击 Install Visual Fortran 按钮 ,如 图 1.1 所 示 。 安 装 问 导 会 引导 进 
17 Fi Bg. 

(2) 进入 安装 后 ,首先 会 弹出 对 话 框 ,询问 是 否 打开 README. TXT 文件 , 单 击 “ 否 ” 按 
钮 ,如 图 1.2 所 示 。 

(3) 弹出 欢迎 对 话 框 , 单 击 Next 按钮 ,如 图 1. 3 所 示 。 

(4) 进入 注册 对 话 框 ,输入 序列 号 后 , 单 击 Next 按钮 ,如 图 1.4 所 示 。 在 弹出 的 确认 对 
话 框 中 单 击 Yes 按钮 ,确认 注册 信息 。 

(5) 进入 选择 安装 类 型 对 话 框 ,如 图 1.5 所 示 。 共 有 3 种 安装 类 型 可 选择 。 

。 BEJOLZ E (Typical) 

Зе АМ Ics HB 2H Е. XT KZ COB Н Р ,推荐 使 用 这 一 选择 。 

。 HP H E X (Custom) 

此 选项 针对 对 Compaq Visual Fortran 6. 5 IE $2 AZS BJ H] Т.Ш ROAD B ту ЖОЕ (Е, 
可 以 选择 此 选项 ,由 用 户 日 己 来 定义 需要 的 组 件 。 

。 МЭК 2 ÍT (Run From CD-ROM) 
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图 1.1 Чё] Ep XX a0 my ri 
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图 1.2 安装 窗口 


安安 后 的 编 幸 和 运行 部 需要 交 盘 的 文 持 。 因 为 速度 太 慢 ,一 般 不 选用 这 种 方式 。 

(6) 进入 选择 文件 夹 对 话 框 ,如 图 1.6 所 示 。 一 般 不 做 修改 ,直接 单 击 Next 按钮 。 

(7) 安放 问 导 根据 前 面 的 设置 将 文件 复制 到 指定 位 置 , 开 始 安 衣 ,如 图 1.7 所 示 。 这 期 
间 会 弹出 一 些 对 话 框 ,一 般 都 单 击 ” 否 ”按钮 。 

(8) 安装 完成 后 ,出 现 完 成 对 话 框 ,取消 选中 复 选 框 , 单 击 Finish 按钮 ,如 图 1.8 所 示 。 
Compaq Visual Fortran 6. 5 的 安装 就 完成 了 。 
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Welcome 


| Wekome to the Compaq Visual Fortran Setup 
- program. Tha; program wil mstall Compaq Visual 
Fortran on your computer. 
lt shrongly recommended thal vou eat al Windows programs 
before running this Setup program, 


Chick Cancel to qut Setup and then close any programs you 
have running Cick Next to continue with the Setup program. 


WARNING: This program is protected by copynghl law and 
miemabonal treaties 


Unauthonzed reproduction or detribution of (тє program. or any 
portion ol iL. may resull in severe civil and criminal penalties. and 
wil be prosecuted to the maximum extent possible under lw 


Kegistration 


Please enter your Visual Fortran produci ID. found on the outside 
al Ihe CD-RDM lolder Ал anty is requeed in the Name and 


Program vall be mstalled with the most common 
option: Recommended lor most users. 
[315 МВ) 

C^ Custom — Youmaw choose the options vou war to install 
Recommended Ica advanced users 


C BunFrom Program well be mstalled to run from the 
CD.«ROM X CD-ROM. 
[32 МВ] 


Destinshon Directores 
Developer Studo Files C^... Microsoft Visual StudiouCommon Directory. | 


Visual Fortran Files: C... Microsoft Visual StudioNDF98 Directory. | 
Shared Visual C++ Files: CA... Microsol Visual Studios C38 Directory.. | 
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Select Folder 


Setup will add items to the Folder in the Program Folder bos 
"You can type а new folder пате, or select one hom the Е хі 
Folders kzt 


Program Folder 


на Vizual Роггап 6 


Exishing Folders 
| JEDE Ф 
ANSYS 130 
ANSYS. Inc. License Mansoer 
Compaq Visual Fotran B — — 
[300gle Chome 

IHF-MHI 


Foldet Туре 


(^ Persona Folder 
[> Common Folde 


图 1.6 选择 文件 夹 对 话 框 


| AVR Welcome to 
ve Compaq Visual Fortran 


NS» The complete development suite 
> for Windows Fortran programmers 


Campis ba] pe get lina 
bres 17 Ы 


Setup Complete 


Visual Fortran Setup ir complete, You mag mun the restated 
program by double-clicking on the program icon installed 


Please view the contents of Ihe README icon belore stating 
the program 


— Mes. | want to view the ReadMe lile now. 


Ск Finish to complete Setup. 
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1.1.2 Compaq Visual Fortran 6.5 的 局 功 


启动 Compaq Visual Fortran 6. 5 应 用 程序 的 方法 有 以 下 几 种 。 
(1) 双击 桌面 上 Microsoft Developer Studio 图 标 。 
(2) 选择 菜单 “开始 ”|“ 所 有 程序 ”| Compaq Visual Fortran 6 | Developer Studio. 如 
图 1.9 所 示 。 
(3) 选择 菜单 “开始 ”| 运行 ”, 通 过 运行 菜单 项 启动 。 
'.. Developer "m 
"a Error Lookup 
Fortran Command Prompt 
RE] Fortran Module Wizard 
2 Help Workshop 
“<< IMSL Fortran 90 MP Library Help 
Ë] IMSL Fortran 90 MP Library Read Me 
VE OLE-COM Object Viewer 
[$39 Online Documentation 
Ë | Onine Registration 
E] Per-User Setup 
IÑ, Process Viewer 
É] Read Me 
[Т] Release Notes 
а 5ру++ 
E vr Reporter 
KA что 


1) ССРгоху 


(Т) DynaDoc 

e Macromedia 
(f) Microsoft Office 
€) Real 

e roo 

(Т) UttraEdit 

7) Velnfo 

m WinRAR 


m 超 星 数字 图 书馆 
c 超星 阅览 器 

mm 附件 

e 甘肃 证 券 通 达 信 
©) 管理 工具 

m 金山 司 看 2003 

A 卡 卡 上 同安 全 助手 


图 1.9 Compaq Visual Fortran 6. 5 启动 过 程 


1.1.3 Compaq Visual Fortran 6.5 H A $% H 


启动 Compaq Visual Fortran 6. 5 后 ,进入 Compaq Visual Fortran 6. 5 的 工作 窗口 ,如 
图 1. 10 所 示 。 工 作 窗 口 由 五 部 分 组 成 。 


1. 标题 栏 
标题 栏 位 于 主 窗 口 项 部 ,其 左 侧 显示 当前 打开 的 工作 空间 名 。 
2. X RE 


菜单 栏 包 括 9 个 菜单 项 ,菜单 项 内 容 会 因 操 作 状 态 不 同 而 有 所 变化 。 按 Alc 3e 8o 
首 字 母 组 合 键 可 打开 菜单 。 菜 单项 后 带 省 略 号 … ,表示 执行 该 菜单 项 命令 时 将 弹出 相应 对 
ИЛЕ; 菜单 项 后 带 三 角 标 记 8 ,表示 该 菜单 项 还 有 下 一 级 菜单 (级 联 菜 单 ); 菜单 项 呈 灰 色 显 
ZR ,表示 该 菜单 项 目前 不 能 使 用 (黑色 显示 表示 正常 使 用 ) ; 菜单 项 前 带 选 中 标记 ,表示 该 
项 被 选中 正在 起 作用 。 

(1) File 菜单 : 完成 工作 空间 、 项 目 、 文 件 的 创建 .打开 保存、 打印 等 操作 ，。 

° New; 创建 新 的 工作 空间 、 项 目 、 源 程序 文件 ,资源 文件 或 其 他 文档 。 

° Open: AA Jj НЕЛЕ .资源 文件 或 其 他 文档 。 

* Close: 关闭 已 打开 的 、 当 前 处 于 活动 状态 的 文件 。 
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e “. Compaq Yisual Fortran 
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Find in Files 1 À Find in Files 2 
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图 1.10 应 用 程序 窗口 


。 Ореп Workspace: 打开 工作 空间 。 

° Save Workspace: 保存 工作 空间 。 

* Close Workspace: 关闭 工作 空间 。 

° Save; 按 当 前 名 称 保存 已 打开 且 处 于 活动 状态 的 源 程 序 文件 或 其 他 文档 。 
。 Save Аз: 要 求 输入 新 名 称 保存 已 打开 且 处 于 活动 状态 的 源 程序 文件 或 其 他 文档 。 
。 Save АП: 按 已 有 名 称 保 存 全 部 已 打开 的 源 程序 文件 或 其 他 文档 。 
e Save Fortran Environment; 保存 FORTRAN 环境 参数 。 

。 Page Setup: 设置 打印 页 面 参数 。 

° Print; 使 用 打印 机 打印 源 程 序 文件 或 其 他 可 打印 文档 。 

e Recent File; 列 出 最 近 打 开 过 的 文档 。 

* Recent Workspace: 列 出 最 近 打 开 过 的 工作 空间 。 

° Exit: 关闭 退出 应 用 程序 。 

(2) Edit 8: 完成 编辑 .修改 .查询 .定位 文档 等 操作 。 

Undo; 撤销 上 一 次 操作 。 

Redo: 恢复 撤销 后 的 操作 。 

Cut; 将 选取 的 内 容 剪 切 并 送 至 剪贴 板 。 

Copy: 将 选取 的 内 容 复制 并 送 至 剪贴 板 。 

Paste; 将 剪贴 板 中 的 内 容 粘 贴 至 光标 所 在 位 置 。 

Delete: 将 选取 的 内 容 删 除 。 

Select АП: 选取 当前 文档 的 全 部 内 容 。 

Find; 在 文档 中 查询 指定 的 字符 串 。 

Find in Files; 查询 含 指定 字符 串 的 文件 。 
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* Replace: 在 文档 中 查询 并 替换 指定 的 字符 串 。 

* Go To: 跳 转 到 文档 指定 的 行 .书签 .定义 点 等 。 

e Bookmarks; 在 文档 中 添加 、 删 除 或 跳 转 书签 。 

* Fortran Format Editor; 编辑 FORTRAN 格式 语句 。 

* Advanced: 完成 大 小 写字 母 转换 以 及 空格 标注 . 增 量 查询 等 操作 。 
e Breakpoints: 设置 执行 断 点 位 置 。 

(3) View 荣 单 : 设置 Microsoft Developer Studio 窗口 显示 方式 。 
• Resource Symbols: 浏览 和 编辑 资源 文件 中 的 符号 。 

* Resource Includes; 编辑 资源 文件 名 和 预 处 理 指 令 。 

e Full Screen: 全 屏 显 示 编 辑 和 窗口 中 的 内 容 。 

* Workspace: 激活 工作 空间 窗口 。 

° Output: 激活 输出 信息 窗口 。 

* Debug Windows: 激活 有 关 调 试 窗口 (变量 观察 ,内 存 、 变 量 等 )。 
e Refresh: 从 产品 供应 商 处 获取 更 新 信息 的 查询 窗口 。 

* Properties: 显示 当前 文件 属性 ，。 

KA, 在 项 目 中 添加 或 复制 资源 。 

。 Resource: 在 项 目 中 添加 或 创建 资源 。 

。 Resource Copy: 在 项 目 中 复制 资源 。 

。 File As Text: 添加 文本 文件 。 

单 : 完成 项 目 激活 、 添 加 、 设 置 等 操作 。 

e Set Active Project: 激活 工作 空间 中 的 项 目 。 

e Add To Project: 添加 文件 到 项 目 中 。 

e Dependencies: 设置 项 目 则 的 相关 性 。 

° Settings: iz EJ HZ. 

* Export Makefile: 生成 . mak 文件 。 

* Insert Project To Workspace; 添加 项 目 到 工作 空间 。 

(6) Build ж. 完成 对 程序 的 编译 .构建 .调试 .配置 等 操作 。 

° Compile: 编译 源 程序 。 

* Build; 将 项 目 连接 .构建 为 可 执行 文件 。 

* ReBuild All: 重新 构建 全 部 项 目 。 

e Batch Build; 一 次 构建 多 个 项 目 。 

* Clean; 删除 构建 项 目 生 成 的 中 间 和 结果 文件 。 

• Update All Dependencies: 更 新 所 选项 目的 相关 性 。 

• Start Debug: JH 5309 1008. 

* Debugger Remote Connection; 3E f% HD uk xc FE I9] 26 5] 1 Z8 o 
° Execute: 运行 程序 (可 执行 文件 ) 。 

• Set Active Configuration: 选择 项 目 进 行 配 置 。 

e Configuration: NJI Ek [Ж ЛЛ H BU É. 

* Profile: 设置 全 局 选项 .全 局 信息 。 


(5) Project 3 
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(7) Tools 8%: 提供 耕 干 实用 功能 。 
• Source Browser: 浏览 程序 原始 信息 (图 数 、 数据 、 宏 ) 。 
• Close Source Browser File, 关闭 浏览 信息 文件 (. bse 文件 ) 。 
e Fortran Module Wizard; 使 用 回 导 创建 模块 单元 。 
e Customize; 定制 工具 按钮 .工具 栏 LIA REF] Ze. 
* Option; 设置 项 目 环境 参数 。 
* Macro: 创建 和 编辑 宏 。 
KF: 管理 窗口 ,确定 窗口 布局 。 
* New Window: 创建 当前 编辑 窗口 的 副本 窗口。 
° Split: 将 当前 编辑 稀 口 进行 分 割 |。 
。 Docking View: 设置 停靠 显示 模式 。 
。 Next: 设置 下 一 个 窗口 为 当前 窗口 。 
* Previous: 设置 上 一 个 窗口 为 当前 窗口 。 
• Cascade: 按 层 三 方式 排列 窗口 。 
* Tile Horizontally: 按 水 平方 式 排 列 窗 口 。 
• Tile Vertically: 按 重 直方 式 排列 窗口 。 
(9) Help 菜单 : 提供 在 线 帮 助 信 息 及 信息 查询 手段 。 
* Contents; 显示 在 线 帮 助 信 息 文 档 目 录 。 
° Search: 搜索 单词 ,查找 相关 主题 ,显示 在 线 帮 助 信息 。 
* Index; 按 关键 字 索 引 查 询 在 线 帮 助 信息 。 
3. 工具 栏 
工具 栏 提供 了 一 些 常 用 操作 ,包括 9 个 预定 义工 具 栏 ,每 个 工具 栏 
都 有 相应 名 称 。 工 具 栏 可 显示 或 隐藏 。 默 认 显 示 Standard, Build 
MiniBar 和 Fortran 工具 栏 。 其 他 工具 栏 通过 快捷 菜单 或 定制 对 话 框 
来 显示 或 隐藏 。 在 工具 栏 上 单 击 鼠标 右键 ,弹出 快捷 沫 单 , 如 
图 1. 11 所 示 ,选择 要 显示 或 隐藏 的 工具 栏 ,如 果 工 具 栏 名 称 前 有 、/ , 则 
显示 该 工具 栏 ,否则 隐藏 该 工具 栏 , 单 击 工具 栏 名 称 可 在 显示 与 隐藏 之 
间 切 换 。 选 择 菜 单 Tools | Customize, 弹出 Customize 对 话 框 ,选择 
Toolbars 选项 卡 , 如 图 1. 12 所 示 , 也 可 以 选择 要 显示 或 隐藏 的 工具 栏 。 
工具 栏 可 停 徘 或 悬浮 ,与 菜单 栏 类 似 。 工 具 栏 可 根据 需要 编辑 其 
上 的 命令 按钮 (添加 或 删除 ) ,也 可 以 创建 新 工具 栏 。 打 开 Customize 


w Üutput 

w Workspace 

v Standard 
Bu:ld 

w Build MiniBar 
Resource 
Edit 
Debug 
Browse 


w Fortran 


Customire. 


图 1.11 "Bags ñ 


对 话 框 ,选择 Toolbars 选项 卡 , 如 图 1.12 所 示 , 单 击 New 按钮 ,弹出 New Toolbar ЖЕ. 
如 图 1. 13 所 示 。 输 入 新 工具 栏 名 称 , 创 建 一 个 新 的 空 月 工具 栏 ,并 在 Toolbars 选项 卡 左 侧 
工具 栏 列表 中 添加 了 一 个 新 工具 栏 , 处 于 显示 状态 ,同时 在 文档 窗口 内 显示 该 空 日 工具 栏 ， 

如 图 1.14 所 示 。 在 Commands 选项 卡 中 , 单 击 打 开 Category 列表 框 ,选择 命令 类 型 , 右 侧 
会 列 出 该 类 型 的 所 有 命令 图 标 , 如 图 1. 15 所 示 。 选 择 命令 图 标 ,将 其 拖 至 某 工 具 栏 (预定 义 


工具 栏 或 用 户 目 定 义工 具 栏 ) 上 ,为 工具 栏 添加 新 命令 按钮 。 
4. 状态 栏 
hos a HUI B . i os ETE DEUS „1 ту A „Н [Н] ЧЕ ҖЕ 4846 B 
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Customıre 


Commands Toolbars | Tools | Keyboard | Add-ins and Macro Files | 


Toolbars: ° New. | 
Menu bar iv Show ToolTips 


м Standard [7 with shortcut Delete 
[Build юге KEYS 


"Build MiniBar г karqa Dons Reset | 


Reset А! | 


loolbar name: 


Menu bar 


1.12 Customize 对 话 框 


Hew Toolbar 


Toolbar name: 
|MYTOOLBARO!| | 
Cancel | 


1.13 New Toolbar 对 话 框 
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图 1.14 新 建 工具 栏 MYTOOLBAROI 
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Cusztomize 


Commands | Toolbars | Tools | Keyboard | Add-ins and Macro Files | 


Category: Buttons 


Du =й ë GQ + 5 


Hint: Select a cateqory. Click a button to see its 
| description, or drag it to a toolbar. 


All commands | Modify Selection ~ | Reset All Menus | 


Deleted commands | 


图 1.15 ЖА 


s. xn 

主 窗口 是 主要 工作 区 域 ,提供 若干 个 环境 窗口 作为 开发 软件 的 场所 。 环 境 窗口 占据 主 
窗口 的 大 部 分 区 域 。 环 境 窗口 有 两 种 ,停靠 窗口 和 文档 窗口 。 菜 单 栏 和 工具 栏 是 两 种 特殊 
的 停靠 窗口 。 停 靠 窗口 具有 停靠 和 浮动 两 种 状态 ,如 图 1. 16 所 示 , 图 中 工作 空间 窗口 目前 
是 停靠 状态 ,固定 不 动 ,输出 窗口 (Output) 是 浮动 状态 ,可 随意 拖 动 ,可 通过 View 菜单 打开 
或 激活 窗口 。 在 主 窗口 中 工作 空间 窗口 和 输出 窗口 是 两 个 常用 停靠 窗口 ,工作 空间 窗口 类 
似 一 个 简单 的 资源 管理 器 ,显示 已 打开 的 工作 空间 ,项目 和 文件 。 在 工作 空间 窗口 中 双击 文 
件 名 可 打开 相应 文档 窗口 ,在 文档 窗口 中 完成 输入 、 编 辑 ,修改 ,查询 等 操作 。 文 档 窗口 位 于 
主 窗口 右 侧 区域 , 一 般 最 大 化 显示 ,也 可 按 层 三, 水 平和 垂直 平 铺 方式 显示 。 


‘diz — Compaq Visual Fortran — [р:\412\ех011401. #90] ESI 
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PRINT *,"This is a FORTRAN program." 
END 
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3 包 Source Files 
201.190 
J Header Files 
—] Resource Files 
— ЕП ех02 files 
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1.2 Compaq Visual Fortran 6.5 上 机 过 程 


FORTRAN 程序 上 机 运行 一 般 要 经 过 输入 (编辑 ) 源 程序 、 编 译 源 程序 .连接 生成 可 执 
行文 件 , 以 及 调试 运行 程序 4 个 步骤 。 本 节 通 过 实例 简要 说 明 程 序 设计 解 题 过 程 。 

【 例 1-1】 输入 2 个 整数 ,对 其 值 进行 交换 ,将 交换 后 的 结果 显示 到 屏幕 。 

【 例 1-2】 输入 3 个 整数 ,对 其 进行 由 小 到 大 的 排序 ,将 排序 结果 显示 到 屏幕 。 


1.2.1 前 期 工作 


例 1-1 前 期 工作 

d) 分 析 : 用 变量 A 和 B 存放 输入 的 两 个 整数 ,用 临时 变量 了 保存 其 中 一 个 变量 ,如 A 
的 值 ,T = A, 再 通过 A= B 和 B= 实现 交换 。 

(2) 给 出 求解 算法 流程 图 ,如 图 1. 17 所 示 。 

(3) 根据 算法 给 出 程序 代码 ,如 图 1. 18 所 示 。 


图 1.17 例 1-1 流程 图 图 1.18 d 1-1 程序 代码 


例 1-2 前 期 工作 

(OD 分 析 : 用 变量 A. B ILC 存放 输入 的 三 个 整数 ,采用 简单 交换 法 进行 排序 ,如 
图 1.19 所 示 。 不 满足 排序 要 求 时 (满足 比较 条 件 ), 通 过 例 1-1 的 方法 交换 数据 ,调整 排序 

(2) 给 出 求解 算法 流程 图 ,如 图 1. 20 所 示 。 

(3) 根据 算法 给 出 程序 代码 ,如 图 1.21 所 示 。 


1.2.2 上 机 过 程 
1. —— 


je. DOES RAE. кисен анында 目 和 相关 联 文件 。 ) 这 Min 
立 一 个 名 为 的 dlz 的 工作 空间 。 
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假设 输入 三 个 数据 5. 1, 3， 分 别 存 人 4、B、C 变 量 


BE 
BE 
ВЕ 


第 1 轮 排序 
= 第 1 次 比较 
EZ MERE A- BWE H 
第 2 次 比较 
第 1 轮 排序 结束 ， 变 量 4 的 值 确定 
第 2 轮 排序 第 1 次 比较 


V 


WERF B. CAES HA 


d ВЕ 
JEA ЕЕ 


排序 结束 


图 1.19 排序 过 程 演示 


Ах 
rT 


MAAA. B. C PROGRAM EXAM1 2 
| I INTEGER À, B, C, T 
— ТЕ(А > B)THEN 
T=A 


READ x ,A,B,C 
L= DIR 
4 与 有 交换 k= ü 


B= T 
ENDIF 
IF(A» C)THEN 
Tc 
A-C 
C-T 
ENDIF 
IF(B» C)THEN 
T-B 
B=C 
| | pop 
输出 4、B、C ENDIF 


PRINT x ‚А,В,С 
END 


1.20 f 1-2 流程 图 1.21 | 1-2 程序 代码 
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创建 步骤 如 下 。 

(D 选择 File| New 菜单 ,如 图 1. 22 所 示 ,弹出 New 对 话 框 ,选择 Workspaces 选项 卡 。 

在 名 称 和 位 置 文本 框 中 分 别 输入 工作 空间 名 和 路 径 。 路 径 可 以 通过 单 击 位 置 文本 
框 右 侧 按钮 .打开 浏览 窗口 来 查找 和 定位 ,如 图 1.23 所 示 。 

单 击 OK 按钮 ,创建 完成 新 的 工作 空间 , 回 到 Developer Studio 主 窗口 。 


= Compaq Visual Fortran 


Ше Edt Vew Insert Broject Buld Tools Window Hep 
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Open Workspace... | 
Saye Workspace 
Close Workspace 

lel Save 
Save As... 

GÀ Save Aj 

$ Save Fortran Environment 
Page Setup... 

& Print... Ctrl+P 
Print Colorized Fortran... 
Recent Files 
Recent Workspaces 

I Ex 


PEE EAM ШЕН )roject or workspace П Ln 1, Col 1 НЕС [COL [OVA [READ , 


图 1.22. 创建 工作 空间 一 一 菜单 项 


Hrw 


(x iter ik +E 


Files | Projec С Workspaces D her Documents 


T | Weorkspaces 这 项 卡 

Wf Blank Workspace Уна M | 在 Location 中 选择 工作 空间 要 
JE | 建立 的 位 置 ， 在 Workspace 
Location: | name 文 本 框 中 输入 工作 空 
pz 到 | 间 名 称 ， 然 后 单 击 OK 按钮 
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建立 完成 新 的 工作 空间 后 ,会 在 Developer Studio 主 窗口 的 工作 空间 管理 窗口 建立 新 
的 选项 卡 FileView, 同 时 显示 “Workspace 'dlz' :0 project(Cs)” ,指出 工作 空间 的 名 称 和 所 


“dla — Compaq Visual Fortran [ЈЕ 


| file Edit View Insert Project Build Tools Window 
| Help 


а Бы »e|—--—-|mms 


Workspace "12": Ü project[s] 


图 1.24 创建 工作 空间 一 一 成 功 后 


这 时 会 在 DD 盘 上 创建 一 个 新 的 文件 夹 D:\dlz, 并 且 生 成 两 个 工作 空间 管理 文件 dlz. opt 
和 412. dsw。 以 后 要 打开 工作 空间 dlz, 也 可 以 直接 双击 dlz. dsw 文件 ,如 图 1.25 所 示 。 


-tag o) [OX SE 
wo esp sso" Q wD dup ss" Q 


Q) SE ` Ө ` 2 dl Q ғғ i o 2 ° 


Hiit D) |æ n: gra 地 址 0) |a М уға 


< CompaqVi zualFort... p Project Works isl 
i E) dir. opt 
< 412 ОРТ € 

Ы | 32 KB 


图 1.25 工作 空间 文件 夹 


2. 创建 项 目 

开发 工具 通过 项 目 ( 工 程 ,Project) 来 管理 源 程序 文件 ,并 一 起 作为 编译 程序 单位 , 因 
此 ,建立 工作 空间 后 ,还 要 在 其 中 建立 自己 的 项 目 。 针 对 例题 ,在 工作 空间 中 应 分 别 创 建 两 
个 项 目 ex01 和 ex02。 创 建 项 目的 同时 会 在 工作 空间 文件 夹 (dlz) 内 生成 两 个 新 的 子 文件 
je ex01、ex02 以 及 有 关 项 目 管理 文件 。 

创建 步骤 如 下 。 

D 再 次 打开 New 对 话 框 ,选取 Projects 选项 卡 ,选择 应 用 程序 类 型 为 Fortran Console 
Application , 即 控制 人 台 应 用 程序 ,指定 运行 平台 ,如 图 1. 26 Bron. 

在 名 称 文本 框 中 输入 项 目 名 称 , 选 中 Add to current workspace 单 选 按钮 , 单 击 OK 
按钮 ,如 图 1. 27 所 示 。 

在 弹出 的 对 话 框 中 选中 An empty project. 选项 , 单 击 Finish 按钮 ,如 图 1. 28 所 示 。 

在 弹出 的 对 话 框 中 单 击 OK 按钮 ,如 图 1. 29 所 示 , 即 可 完成 新 项 目的 创建 ,返回 
Developer Studio ЕП. 
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He 


т 
Files Projects Workspaces | Other Documents- H 在 对 话 框 中 选择 Projects 选 项 卡 
О Fortran COM Server Project name: — mms 

Fortran Console Applicatio 选择 N HFE 2 n JJ 
|© Fortran Dynamic Link Library | | TT 
"m| Fortran Standard Graphics or QuickWin Application Location: Fortran Console Application 
X Fortran Static Library — 


was 


(+ Create new workspace 
^ Add to current workspace 
[ Dependency of 


[] 1.26 创建 项 目 


-步骤 1 


Hev 


Files Projects | Workspaces | Other Documents | 


| (EProject name 文 本 框 中 给 
Fortran COM Server Project name: 


bo ЕЕРЕЕ | 定 项 目的 名 宇 ，Location 中 
єх m , 1 a i 1 * 
会 显示 出 整个 Project 的 工作 
static Location: H 11214 
lFortran Windows Application |0481 24ех01 Fa 
W Makefile 
^ Create new workspace u 
@ Add to current workspac Vc Ff Add to current workspace 


| Dependency of: 


[exti -| 


Platforms: 


-”” 
图 1.27 创建 项 目 


-步骤 2 


Visual Fortran 6.5 以 前 的 版 本 不 会 出 现 如 图 1. 28 所 示 的 这 个 界面 ,而 是 直接 跳 过 ， 
建议 选择 第 一 个 选项 An empty project, 然 后 直接 单 击 Finish 按钮 。 

如 图 1.29 所 示 的 对 话 框 也 只 在 新 版 本 的 Visual Fortran 6. 5 中 才 会 出 现 , 它 显示 项 目 
创建 后 自动 生成 的 文件 ,直接 单 击 OK 按钮 就 可 以 了 。 

建立 完成 新 的 项 目 后 ,会 在 Developer Studio 主 窗口 的 工作 空间 管理 窗口 内 File View 
选项 卡 中 添加 新 建立 的 项 目 ex01 files, 同 时 显示 工作 空间 中 项 目 个 数 , 如 图 1. 30 所 示 。 
立 完 成 后 的 应 用 程序 主 窗口 中 ,目前 还 没有 任何 源 程序 。 在 工作 空间 文件 夹 dlz 中 自动 生 
成 项 目 文件 夹 ex01 ,在 ex01 文件 夹 中 生成 项 目 管理 文件 ex01. dsp, 如 图 1. 31 所 示 。 
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Fortran Console Application 一 Step 1 of 1 


What kind of Console Application do you want to create? 


© Ап empty project. 


С A simple project. 
^ А "Нео World" sample project. 


— This project will be linking against one or more Fortran DLL Import 
libraries. 


图 1.28 创建 项 目 一 一 步骤 3 


Нет Project Information 


Fortran Console Application will create a new skeleton project with the 
lollowing specifications: 


* No files will be created or added to the project. 


Project Directory: 
DAforproVexam1 


图 1.29 @J# EL — Jp JR 4 


3. 创建 产程 序 文 件 

创建 完成 一 个 项 目 后 ,还 没有 源 程 序 文件 ,因此 要 在 项 目 中 创建 ,编辑 源 程序 文件 。 这 
里 建立 例 1-1 的 源 程序 文件 1t01. f90, 

创建 步骤 如 下 。 
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'. diz — Compaq Yisual Fortran PIE 


| File Edit View Insert Project Build Tools Window Help 
lalmugse--c-[msea 
РЕ 


£ Workspace 'd12': 1 project(s] 
= 1 ex01 files 


1.30 创建 项 目 一 一 成 功 后 


PIE 
: XQ ddp ey 
Өм - О-В 


Hett O) O D: Satz 


q diz. opt 
|| ОРТ Xf 
‚| 32 ЕВ 


图 1.31 创建 项 目 一 一 生成 相应 的 文件 夹 


再 次 打开 New 对 话 框 ,选择 Files 选项 卡 , 选 择 文 件 类 型 为 Fortran Free Format 
Source File ,建立 自由 格式 的 FORTRAN 源 程 序 ,如 图 1.32 所 示 。 


Files | Projects | Workspaces | Other Documents 一 在 对 话 框 中 选择 Files 选 项 卡 


Т] Binary File F Add to project: 选中 Add to project: 复 选 杠 
i9 Hitmap File Т -| 
Cursor File exon 1 

m Fortran Fixed Format Source File 

- Fartran Free Format Source File m= x 件 业 型 这 拌 Fortran Free 
l "- Format Source File. fEFile 


pig А zi ^. ul i П 
Блесна Soript Ы 文本 框 中 给 出 文件 名 ， 然 
?y Hesour i Imir G 
18 Text File : Location: 后 单 击 OK 按 饰 


diziexà! | 


图 1.32 创建 源 程序 文件 


选中 Add to project: 复 选 框 ,在 文件 文本 框 中 输入 源 程序 文件 名 。 
单 击 OK 按钮 ,创建 完成 新 的 源 程序 文件 , 回 到 Developer Studio EAHA., 
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建立 完成 源 程序 文件 后 ,会 在 FileView 选项 卡 中 项 目 ex01 下 添加 新 建立 的 源 程 序 文 
{F 1t01. {90, 同 时 会 在 右 侧 打开 一 个 空 日 文档 窗口 ,用 户 可 以 在 文档 窗口 中 输入 (编辑 ) 源 程 
序 , 如 图 1.33 所 示 。 同 时 在 文件 夹 D;NdlzVex0l 下 生成 文件 1t01. {90, 如 图 1. 34 所 示 。 


`. diz — Compaq Visual Fortran 一 [D:\dlz\exO0l\1t01.... Paulli 


PROGRAM EXAMT 1 

INTEGER ñ,B,T 

RERD*,R,B 
1 T-fi 
- 4&3 Source Files n-B 

+] It01.f90 B-T 

—J Header Files PRIHT*,R,B 

22 Resource Files END 在 lt01.f90 文 件 
的 程序 代码 


WFE] Workspace '@12': 1 project[s] 
= Ё ex01 files 


- [S] FileView 


图 1.33 创建 源 程序 文件 


- I PII 
| xit RED 查看 0 ” EN 
Oa- 09-1 


; 地 址 
[9 


图 1.34 源 程序 文件 夹 窗口 


4. 创建 辅助 文档 文件 

项 目 中 除 源 程序 文件 外 ,有 时 还 需要 创建 相关 的 资源 文件 或 辅助 文件 ,这 些 文件 的 创建 
可 在 Microsoft Developer Studio 中 直接 运行 有 关 软 件 来 完成 。 针 对 例 1-1, 可 创建 一 个 流 
程 图 文档 lt01. doc。 创 建 步骤 如 下 。 

(D 打开 New 对 话 框 ,选择 Other Documents 选项 卡 ; 

选择 Word 文档 类 型 ; 

选中 Add to project 选项 ,在 文本 框 中 输入 文件 名 ; 

单 击 OK 按钮 ,如 图 1. 35 所 示 。 

这 时 在 工作 空间 窗口 FileView 选项 卡 的 ex01 项 目下 ,创建 了 一 个 辅助 文档 文件 1t01. 
doc。 在 右 侧 会 打开 一 个 Word 空白 文档 窗口 ,可 以 在 文档 窗口 中 编辑 、 输 入 和 绘制 流程 图 ， 
如 图 1.36 所 示 。 

5. 编译 源 程序 文件 

源 程序 输入 (编辑 ) 完 成 后 ,需要 对 源 程序 进行 编译 。 在 编译 过 程 中 检查 发现 以 及 排除 
错误 ,编译 通过 后 生成 中 间 文 件 ( 扩 展 名 为 . obj, 又 称 目 标 文件 ), 以 便 连 接 和 运行 。 
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Files | Projects | Workspace X Other Documents |D 
Є.) CorelDRAW 12.0 Graphic . v Add to project ` 
7 Microsoft Excel 97-2003 T (EX — | 
Ei Microsoft Excel 3+ 5| L (EX [exti E 
^ Microsoft Excel T (E 


Microsoft Excel = T [E 
“2 Microsoft Excel HZ File 


Microsoft PowerPoint 97-2003 }Ж F 57 T5 | 
-* Microsoft PowerPoint E FZEBEICTR CS [I 


I T, irg 


Location: 


“| Microsoft Word 97 - 2003 XM ` 
TMicrosuft Мота [DAd1ziexo1 ЕЗ 
Mi wisina Word 启用 宏 的 模板 | 
“l Microsoft Word S 328077704 
*! Microsoft Word 7 7*3 
` OpenDocument 电子 表格 
* OpenDocument 文本 
"OpenDocument ;8 TUIA 


图 1.35 创建 辅助 文档 一 


'.. dlz — Compaq Visual Fortran — [D:\dizňex0l\lt0l. doc] 
99) File Edit View Insert Project Build Tools Window Help 


у А ах 


ity Workspace 'd1z*: 1 project[s] 
= EH ex01 files 
- 239 Source Files 
01.190 
J Header Files 


J Resource Files 


1.36 新 建 lt01. doc 文档 
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编译 前 可 根据 需要 设 定 有 关 参 数 , 这 里 不 再 讲解 ,一般 采用 默认 设置 。 
对 项 目 内 源 程序 文件 进行 编译 ,可 采用 以 下 4 种 操作 方式 。 
选择 菜单 Виа | Compile ,执行 编译 ,如 图 1.37 所 示 。 
单 击 Build 工具 栏 中 的 编译 按钮 事 ,执行 编译 ,如 图 1.37 所 示 。 


И 一 Compaq Visual Fortran 一 [D:\diz\ex01\lt01. £90] ү* [=] 14 


B File Edit View Inzert Project |Build Tools Window Help 


T Nene i capp M ges 
Е _——————= alx і Batch Build.. | pad 90 (CRI ii LE 二 的 
f& Workspace '12": 2 pre Clean 纲 详 合 УТӘ) AUFRUF | 
- EFI exl files Update А11 Dependencies... 从 * iboutput ff | | 中 可 以 
2-3 Source Files 看 到 0 error(s).0 warning(s) 的 
2) 101.190 Start Debug | 结果 ， 表 示 编 译 过 程 没有 错 
73 Header Files Debugger Remote Connection... ix Š ^: n IO] „obj 文件 


c Resource Files Execute ех01. ехе Ctr1+F5 
=) It01.doc 2/85. 2 а 
* Е ex0? files Set Active Configuration. 
Configurations.. 
Рго 11е... 


| Al 1tü1.abj - B error(s), 8 warning(s) 


bug ÀX Find in Files 1 } [4 || 


Compiles the file | 126, Coli |RECICoLIC Z 


按 Ctrl 十 F7 组 合 键 。 

在 工作 空间 窗口 选择 1001. f90 文件 , 单 击 鼠标 右键 ,弹出 快捷 荣 单 ТЕ ЖЧ Ж 
择 Compile 1101. 90.3417 28 Е. 

编译 结束 后 ,在 下 半 部 的 输出 窗口 会 显示 编译 结果 信息 。 如 果 编 译 无 错误 ,显示 信息 
“1001. obj-0 error(s),0 warning(s)”, 生 成 目标 文件 ,可 进行 下 一 步骤 操作 ; 否则 显示 错误 
提示 信息 。 如 果 有 错误 ,用 户 需 要 通过 提示 信息 的 帮助 去 修改 错误 ,然后 重新 编译 ,直到 编 
译 通过 (无 错误 )、 生 成 目标 文件 为 止 。 

编译 无 错误 结束 后 ,在 项 目 文件 夹 ex01 下 会 创建 debug 文件 夹 ,在 debug 文件 夹 生成 
目标 文件 1t01. obj 和 有 关 编 译 信 息 的 数据 库 文 件 DF60. PDB, 如 图 1.38 所 示 。 在 项 目 文件 
X ex01 下 生成 有 关 源 程序 编译 的 管理 文件 ex01. plg Xf. 

6. 构建 可 执行 程序 

编译 产生 的 1t01. obj 文件 还 不 能 直接 运行 ,必须 构建 生成 可 执行 文件 (扩展 名 为 . exe) 
才能 在 计算 机 上 运行 。 程 序 构建 (也 称 连 接 ) 是 将 lt01. ob; 文件 与 系统 提供 的 有 关 环 境 参 
数 、 预 定义 子 程序 和 预定 义 困 数 等 连接 在 一 起 ,生成 完整 的 可 执行 程序 代码 。 在 构建 过 程 中 
也 要 检查 、 发 现 以 及 排除 相关 第 读 。 

对 1t01. obj 文件 进行 构建 ,可 以 采用 以 下 4 种 操作 方式 。 

选择 菜单 Build| Build ex01. exe, 执 行 构建 ,如 图 1. 39 所 示 、 

单 击 Build 工具 栏 的 构建 按钮 88. ,执行 构建 ,如 图 1.39 所 示 。 


单 中 先 
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| Mp RED so > 
| | NP MED 查看 (0 ” 
Өз - О: 2? | 


; HE QD) Oriane M OFS 


图 1. 38 目标 文件 的 文件 夹 和 文件 
© Ж Ет 键 。 


QD 在 工作 空间 窗口 选择 ex01 项 目 , 单 击 鼠 标 右键 ,弹出 快捷 荣 单 ,在 快捷 菜单 中 选择 
Build (selection only) 荣 单项 ,执行 构建 ， 


діт — Compaq Yisual Fortran — [D:\dizħãex01\1t01. 7901 


im File Edit View Insert Project Build Tools Window Help 


Im ud : ње - B Compils 1:01. £90 Ctrl+F7 

| ie is ЕЕ ех01. ехе FT | РЕВА 3 Кн Виа 

e ex01.exe (或 单 击 工具 栏 上 
Fr] | — Batch Build x 的 构建 命令 1 ) 构建 


à Workspace 'd12*: 2 prc Clean 可 执行 程序 ， 从 下 半 部 
一 = E? ех01 files Update All Dependencies... output f | | 中 可 LJ 看 到 0 
im a die Start Debug error(s). 0 warnin е(ѕ) н 
СЗ кай Files Debugger Remote Connection... ES , 表示 没 有 错误 E 成 
= Resource Files Executa ax Ül exe С+г1+Ё5 ех01.ехе x1 F 
=] Н01.дос 
图 ex0? files Set Active Configuration ., 
Configurations... 
Profile... 


Jex&1.exe - 8 error(s), 8 warning(s) 


1а10,С1 ВЕС (со с Z 


图 1.39 构建 可 执行 程序 


构建 结束 后 ,在 输出 窗口 会 显示 构建 结果 信息 。 如 果 构 建 无 错误 ,显示 信息 “ex01. exe 
O error(s),0 warning(s)”, 生 成 可 执行 文件 ; 否则 显示 错误 提示 信息 。 如 果 有 错误 ,同样 ， 
用 户 需 要 通过 提示 信息 的 帮助 去 修改 错误 ,然后 重新 编译 .构建 ,直到 构建 通过 (无 错误 ) E 
成 可 执行 文件 为 止 。 正 确 构 建 完 成 后 ,在 debug 文件 夹 下 生成 可 执行 文件 ex01. exe. 如 
q 1.40 所 示 。 

7. 运行 程序 

生成 可 执行 文件 (exe 文件 ) 后 ,就 可 以 运行 该 程序 ,得 到 运行 结果 。 

运行 可 执行 程序 的 方式 有 很 多 种 ,一般 采 用 以 下 三 种 方法 ,如 图 1.41 所 示 。 

(D 选择 菜单 Build| Execute ex01. exe ,运行 程序 。 

© 单 击 Build 工具 栏 中 的 运行 按钮 * ,运行 程序 。 
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TBR 
wp sap sso" EF 


|Qem-o. 4 


>> 


图 1.40 可 执行 文件 
按 Ctrl 十 F5 组 合 键 。 


'.. dilz — Compaq Visual Fortran 一 [D:Adlzexz01N1101.£90] 
[Ë] File Edit View Inzert Project Build lools Yindow Help 


зне. + вак S8 Capile 101.0 сот 
“= 1л оо гло гло = Build ех01. ехе FT 
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1а] х] | P Batch Build 
ISl Workspace 'd1z': 2 prc Clean 
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H- Source Files 


Start Debug 

a Неаб? Files Debugger Remote Connection... 

— Resource Files | Execute xÜ] .exa Ctrlt+Fs 选 拌 Build a 单 中 的 Execute 

8) Itü1.doc 一 ______ laus (MENT BERE E 
+ ЕЛ exl? files Set Active Configuration... ex0 |.exe (或 单 击 工 RIZE 
Configurations... 的 JZ: ÍT 命 ^ ftl ! | {ТЕ 
Erofile .. FF 


< 


Build / Debug J 
Executes the prog So ИШИ Ln 10, Col 1 REC [COL [c 22 


图 1. 41 ”运行 程序 
执行 后 会 看 到 程序 运行 结果 ,如 图 1.42 所 示 。 


КУЫ Т Маі з\ех01\ребор\ех01... - 口 jx T 人 数据 45 87 后 
一 按 Enter ( 回 车 ) 
87 45 键 显 示 交 换 结 果 


Press any key ta continues 


图 1.42 输入 数据 ,显示 运行 结 采 


这 时 例 1-1 程序 上 机 过 程 完成 。 如 果 继 续 编 辑 .编译 .构建 (连接 ) .运行 例 1-2 程序 ,不 
用 再 创建 工作 空间 ,只 需要 重复 以 上 操作 步骤 的 2 至 7( 除 去 步骤 4) ,在 已 有 dlz 工作 空间 
中 建立 ex02 项 目 以 及 相关 程序 文件 ,如 图 1.43 所 示 ,并 重复 编译 .连接 .运行 步骤 即 可 。 

以 上 介绍 了 开发 FORTRAN 程序 的 基本 过 程 与 步 又。 从 中 可 以 看 到 ,在 CVF 中 ,通过 
工作 空间 和 项 目 来 合理 地 组 织 文件 ,其 功能 类 做 Windows 中 的 资源 管理 器 。 用 户 可 根据 所 
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'. dlz — Compaq Visual Fortran —- [D:\dlz\ex02\1t02.f90] P] Е 


Е File Edit View Insert Project Build Tools Window Help -|B8 | x 


ким ае |—- = - mim | m -| 


ыа] PROGRAM EXñH1 2 
- C3 Source Files ^| sudden i бар 
33 401.90 P RERD *,R,B,C 

š IF(R»B)THEN 

I Header Files Т=й 

2 Resource File: A=B 

-2 Itü1.doc B-T 
= ËF] ех02 files | ENDIF 

-| 5-83 Source Files J) ee 
i 


| | A=C 
=] Header Files C-T 


1 Resource File: а ENDIF 
IF(B»L)THEH 


La 19, Col 3 RECÍCOL IC Z 
图 1.43 例 1-2 源 程序 
开发 程序 类 型 创建 多 个 工作 空间 (类 似 文 件 夹 ) ,每 一 个 工作 空间 根据 要 求 可 创建 多 个 项 目 
(类 似 子 文件 夹 ) ,每 个 项 目 内 又 可 创建 生成 有 关 源 程序 文件 .资源 文件 或 其 他 相关 文件 。 一 
个 项 目 最 简单 的 情况 是 只 有 一 个 源 程序 文件 ,如 以 上 两 个 项 目 (ex01 .ex02)。 有 用户、 工作 空 
间 ,项 目 和 文件 的 关系 如 图 1. 44 所 示 。 


工作 空间 nn 


工作 空间 1 工作 空间 2 | | 工作 空间 3 


«И | ЖЕ = 


WAPEFF {Р 321 秆 源 文 件 321 其 他 文件 


1.44 。 用户、 工作 空间 .项目 和 文件 的 关系 


注意 : 在 工作 空间 中 所 和 包 念 的 多 个 项 目 里 ,只 有 一 个 是 处 于 活动 状态 的 项 目 , 只 有 处 于 
活动 状态 的 项 目 才能 创建 或 添加 源 程 序 , 以 及 进行 编译 、 构 建 ( 连 接 )、 运行 和 调试 操作 。 要 
想 知 道 当 前 哪 一 个 项 目 处 于 活动 状态 ,可 以 通过 Project 菜单 中 的 Set Active Project 来 查 
看 并 激活 某 一 个 项 目 。 激 活 项 目 也 可 以 通过 选中 在 工作 空间 窗口 中 的 待 激活 项 目 , 单 击 鼠 
标 右键 ,弹出 快捷 菜单 ,在 快捷 菜单 中 选择 Set as Active Project, 如 图 1. 45 所 示 。 

— Visual Fortran 6. 5 的 编译 调试 环境 ,还 需要 读者 通过 多 上 机 调试 运行 程 
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图 1.45 多 项 目 空 间 工 作 窗 口 


Intel Visual Fortran 2011 编译 环境 


英特尔 公司 开发 的 FORTRAN 编译 器 是 Intel Visual Fortran(IVE), IVF 是 在 СУЕ 
的 基础 上 开发 的 FORTRAN # PE 28. Е СУЕ 前 端 与 英特尔 处 理 需 后 端 相 结合 ,拥有 
СУЕ 丰富 的 语言 功能 和 英特尔 处 理 器 的 代码 生成 及 优化 功能 ,使 运行 在 英特尔 平台 上 的 程 
序 性 能 得 到 大 幅度 提高 。 随 着 计算 规模 的 增 大 ,对 计算 内 存 要 求 必 须 采 用 64 位 的 程序 才能 
够 满足 要 求 ,但 CVF 没有 提供 64 位 系统 的 编译 平台 ,只 能 用 于 32 位 Windows ЖЭН» 5 
外 ,程序 并 行 功 能 的 实现 在 IVF 上 更 强大 ,而 CVF 无 法 调用 相应 的 并 行 函数 库 。 这 些 优点 
使 得 从 CVF 转移 到 IVF 已 是 势 在 必 行 。 

KH IVF 来 编写 运行 FORTRAN 程序 稍微 麻烦 些 , 如 本 书 中 所 介绍 的 Intel Visual 
Fortran 2011 版 本 只 是 编译 帮 , 它 需要 放 到 集成 开发 环境 中 去 才能 使 用 。 因 此 ТУЕ 编译 需 
还 需要 VS6.6 以 上 版 本 IDE 的 支持 ,所 以 必须 事先 安 沪 好 VS А, Л BÉ 2 9 8 PE йй» RD 
中 先 安装 VS2010, 再 安装 IVF 2011. 


2.1 Intel Visual Fortran 2011 的 安装 与 启动 


2.1.1 Visual Studio 2010 的 安装 


便 件 环境 要 求 如 表 2. 1 所 示 。 
表 2.1 安装 Visual Studio 2010 的 硬件 基本 要 求 


ш fF 硬件 基本 要 求 
处 理 器 最 低 要 求 : 2.2GHz 或 以 上 
V ff 最 低 要 求 : 1GB 或 以 上 
1E S s [n] 最 低 要 求 : 40GB 以 上 ,7200RPM 或 更 高 
显示 分 辨 率 推荐 : 1024X768 或 更 高 的 32 位 真 彩 
ЗЕ СЯ КЕЙШП F, 


(1) 打开 VS2010 安装 应 用 程序 包 , 运 行 安 装 程 序 ( 双 击 setup) ,屏幕 出 现 安装 起 始 界 
面 , 单 击 "安装 Microsoft Visual Studio 2010” 按 钮 ,如 图 2.1 所 示 。 安 装 问 导 会 引导 进行 下 


面 的 安装 。 
(2) 弹出 安装 向 导 对 话 框 ,如 图 2.2 所 示 。 安 装 程序 加 载 安 装 组 件 需 要 几 秒 时 间 , 完 成 
后 单 击 “下 一 步 ” 按 钮 。 


(3) 弹出 “安装 程序 一 起 始 页 ”对 话 框 ,如 图 2.3 所 示 。 选 择 “ 我 已 阅读 并 接受 许可 条 
aX AFH , 单 击 “ 下 一 步 " 按 钮 。 
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一 Microsoft Visual Studio 2010 安装 特许 


| 查看 自 ; ker et (v) 


图 2.1 安装 VS2010 起 始 界面 
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== 
图 2.2 Зп 


(4) 弹出 “安装 程序 一 选项 页 ”对 话 框 ,如 图 2.4 所 示 。 先 选择 需要 安装 的 功能 ,如 果 不 
熟悉 安装 选项 ,推荐 选择 "完全 ”安装 , 即 默 认 选 项 ,占用 空间 较 大 ; 也 可 选择 自 定义 ”安装 ， 
自行 选择 需要 安装 的 组 件 。 然 后 选择 产品 安装 路 径 , 单 击 " 训 览 ? 按 钮 ,根据 需要 选择 .修改 
安装 路 径 , 这 里 显示 的 是 默认 安装 路 径 。 设 置 好 安装 选项 后 , 单 击 “ 安 装 ”按钮 。 

(5) 之 后 进入 到 安装 组 件 过 程 , 如 图 2.5 所 示 。 这 个 过 程 基本 不 用 任何 操作 ,只 是 在 安 
AEZ Microsoft. NET Framework 4 后 会 要 求 重启 ,重启 后 继续 安装 。 

VS2010 安装 时 间 较 长 ,具体 根据 机 需 的 配置 而 不 同 。 安 装 完成 时 ,弹出 "安装 程序 一 
完成 页 ”对话 框 , 如 图 2.6 所 示 。 和 直接 单 击 “* 完 成 "按钮 ,完成 安装 过 程 。 


2.1.2 Intel Visual Fortran 2011 J € 


2228256 VS2010 后 ,再 安装 IVF 2011 fmi Е. 
(1) 打开 IVF 2011 安装 应 用 程序 包 ,运行 安装 程序 (双击 setup) ,屏幕 出 现 复制 文件 画 
面 , 几 秒 后 出 现 安 装 癌 导 , 如 图 2.7 所 示 。 安 装 癌 导 会 引导 进行 下 面 的 安装 。 
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OG) Visual Studio'2010 专业 版 ”安装 


A WB NH EHE, "EBEBITVM. UOS HERE РАСЕ UT 3-5 cp ao SR CRF Е ИОВ. ЕЗЕТ 
) 条 款 才 能 安装 语 软 件 ， 


— MICROSOFT 软件 许可 条 款 | 
O 安装 程序 将 安装 下 列 崩 件 ， MICROSOFT VISUAL STUDIO 2010 专业 版 和 MICROSOFT VISUAL STUDIO 三 | 
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(2) 进入 License 说 明 界 面 , 如 图 2.8 所 示 。 选 择 I accept the terms of the license, 单 
击 “ 下 一 步 ” 按 钮 。 


ДЗ! Intel(R) Visual Fortran Composer XE 2011 Update 5 for Windows* - License 


Intel(R) Visual Fortran Composer XE 2011 
Update 5 for Windows* 


_ End User License 
* Welcome 


“чама IMPORTANT - BEFORE COPYING, INSTALLING OR USING < 

9 Activation Do not copy, install, or use the Materials provided under this license agreement | J 

("Agreement"), until you have carefully read the following terms and conditions. 

= Options 

& Installation By copying. installing, or otherwise using the Materials, you agree to be bound 
by the terms of this Agreement. If you do not agree to the terms of this 

* Complete Agreement, do not copy, install, or use the Materials. 


End User License Agreement for the Intel(R) Software Development 
Products 


1. LICENSE DEFINITIONS 
Support Services - - 


图 2.8 License 说 明 界 面 


(3) 进入 激活 界面 ,包括 三 个 选择 : 第 1 个 选项 ,已 有 序列 号 ,直接 输入 激活 并 安 姜 ; 
第 2 个 选项 ,没有 序列 号 , 先 评估 试用 ,以 后 再 注册 ; 第 3 个 选项 ,选择 激活 。 这 里 选 第 3 个 
选项 ,如 图 2.9 所 示 , 单 击 “ 下 一 步 ” 按 钮 。 


#8! Intel(R) Visual Fortran Composer XE 201 
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intel) Intel(R) Visual Fortran Composer XE 2011 
(те; Update 5 for Windows* 


Бы Activation 


© License ^. I have a serial number and want to activate and install my product 
How to bç 


Mow to find my serial number 
* Options Activation requires a serial number and an Internet connection. 


ө Installation 


@ Activation | 


* Complete J— Evaluate this product (no serial number required) 
Choose this option to install a copy of this software if you do not 
have a serial number or if you want to activate at a later time. 


(31 davs allowed) 


Support Services Alternative activation is necessary if you plan to activate remotely 
(because this system may not be set for successful Internet 
connection), or use a license file, or use a license manager. 


《上 一 步 @) 取消 


2.9 激活 界面 (1) 
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• Use remote activation: 人 通过 远程 激活 ; 
e Use a license file; 通过 license 文件 激活 ; 
• Usea license manager; 通过 license ££ Ж 28 1 IA ç 
如 图 2. 10 所 示 ,选择 Use a license file, 单 击 “ 下 一 步 ” 按 钮 。 


{81 Intel(R) Visual Fortran Composer ХЕ 2011 Update 5 for Windows" - Activation 


Update 5 for Windows* 


(intel) Intel(R) Visual Fortran Composer XE 2011 


- Activation - Choose Alternative Activation 
* Welcome 


= License 
@ Activation |) Use remote activation 
@ Options Remote activation is necessary if you cannot establish a successful 


Internet connection from this system. For example firewall configuration 


6 Instalintion prevents you from establishing an Internet connection 


@ Complete 9 Use a license file 


Tou receive a license file via email from the Intel(R) Software 
Developnent Products Registration Center after you register a serial 


^. Use a license manager 


The License Manager Guide explains how to download, install, configure, 
and troubleshoot the Intel(R) License Manager for FLEX1m% product. 
AA] у о наг! j D сот Í n-us/article li enaqe-manacer- à = еше 


Support Serwce:s 


图 2.10 激活 界面 (2) 


弹出 输入 license 文件 对 话 框 , 单 击 Browse 按钮 ,找到 license 文件 , 单 击 “下 一 步 ? 按 
钮 ,如 图 2.11 所 示 。 
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2.11 激活 界面 (3) 
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“К°. 


Intel(R) Visual Ғогігап Composer ХЕ 2011 
Update 5 for Windows* 


Options - Choose Installation Type 


@ Activation 
@ Options 


- | Install with default settings and minimal uzer intervention 
* Installation Recommended for first-time users. 


© Complete 


_› Custom installation (for advanced users) 
Install with configurable settings 


Support Services 


图 2.12 ”安装 选项 对 话 框 (1) 
在 弹出 的 对 话 框 中 单 击 Install 按钮 ,如 图 2. 13 所 示 。 


#8) Intel(R) Visual Fortran Composer XE 2011 Update 5 for Winc 


intel) Intel(R) Visual Fortran Composer XE 2011 
шы Update 5 for Windows* 


Options - Installation Summary 


| Intel(R) Visual Fortran Composer XE 2011 Update 5 for Windows" 
€ Activation 
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@ Installation [Components to Install 

Intel Visual Fortran Compiler XE 
9 Complete intel Visual Fortran Compiler XE on 14-32 


Intel Visual Fortran Compiler XE on InteR) 64 


Intel Math Kernel Library 
Intel MKL on [А-32 
Intel MKL on Intel(R) 64 


Support Services Integration(s) in Microsoft Visual Studio" 
Visual Fortran Integration(s) in Microsoft Visual Studio" 


图 2.13 ”安装 选项 对 话 框 (2) 


(5) 开始 安装 ,需要 等 待 几 分 钟 ,具体 时 间 取 决 于 机 器 的 配置 。 安 装 完成 时 ,弹出 完成 
页 面 ,如 图 2.14 所 示 。 直 接 单 击 “ 完 成 ”按钮 ,完成 安装 过 程 。 
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2.1.3 Intel Visual Fortran 2011 的 启动 


JE 5) Intel Visual Fortran 2011 的 方法 一 般 有 以 下 两 种 。 
选择 菜单 “开始 ”| Intel Parallel Studio XE 2011 | Parallel Studio XE 2011 with 
VS2010 ,如 图 2.15 所 示 。 
选择 菜单 “开始 ”| Microsoft Visual Studio 2010| Microsoft Visual Studio 2010, 如 
图 2.16 所 示 。 
Microsoft Silverlight 
Microsoft Silverlight 3 SDK - 中 文 (简体 ) 
Microsoft Sync Framework 
Microsoft Visual Studio 2010 
@ Microsoft Visual Studio 2010 文档 
en Microsoft Visual Studio 2010 
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4 ш 


图 2.15 启动 方法 1 图 2.16 局 动 方法 2 


第 一 次 启动 VS2010 ,会 弹出 "选择 默认 环境 设置 ?对 话 框 ,进行 初始 环境 设置 , 如 
图 2.17 所 示 。 编 写 FORTRAN 程序 ,可 以 选择 “Visual C++ 开 发 设置 ”或 “常规 开发 设置 ” 
(推荐 ) , 单 击 “ 启 动 Visual Studio” 按 钮 。 

Microsoft Visual Studio 加 载 用 户 设 置 可 能 需要 几 分 钟 。 加 载 完 成 后 ,进入 应 用 程序 起 
始 界 面 ,如 图 2. 18 所 示 。 
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Q) Visual Studio 2:0 «is 


首次 开始 使 用 该 应 用 程序 之 前 ， 需 要 指定 您 从 事 最 多 的 开发 活动 类 型 , 如 Visual Basic BR Visual 
C#。 此 信息 用 于 棕 种 定义 的 设置 集合 应 用 于 针对 沪 的 开发 活动 而 设计 的 开发 环境 。 
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择 “ 重 置 所 有 设置 ”。 


选择 默认 环境 设置 (QO): 
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图 2.18 应 用 程序 初始 界面 
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2.2 Intel Visual Fortran 2011 上 机 过 程 


仍 以 例 1-1 和 例 1-2 为 例 , 介 绍 Intel Visual Fortran 2011 W ЕМЕ, Е СУЕ 中 通 
过 工作 空间 和 项 目 来 组 织 文 件 不 同 ,Intel Visual Fortran 2011 在 VS 中 是 通过 建立 控制 台 
(项 目 ) 来 运行 程序 的 。 为 了 更 好 地 管理 控制 台 项 目 , 用 户 可 以 建立 自己 的 文件 夹 来 管理 组 
织 相关 文件 。 

І. 建 并 控制 台 

创建 步骤 如 下 : 

(D 选择 菜单 “文件 ”|“ 新 建 ”1 “项目 ”, 如 图 2.19 所 示 , 弹 出 “新 建 项 目 ” 对 话 框 。 
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图 2.19 建立 控制 台 一 一 菜单 项 


在 "新建 项 目 ” 对 话 框 左 栏 “ 已 安装 的 模板 ”中 选择 Intel(R) Visual Fortran | Console 
Application( 控 制 台 应 用 程序 ) ,在 其 右 栏 选择 Empty Project, 名 称 文本 框 中 显示 Consolel 
(控制 台 1) 。 为 了 便于 文件 的 组 织 管理 ,这 里 “位 置 ?通过 单 击 * 浏 览 ? 按 钮 来 选择 上 自 定 义 文 
件 夹 D; \profor\d2z， 解 决 方案 名 称 ? 软 认为 Consolel ,如 图 2. 20 Brzs . 

单 击 “ 确 定 ” 按 钮 ,完成 控制 台 的 建立 , 回 到 主 界面 ,如 图 2.21 所 示 。 此 时 主 界面 的 
右 栏 会 出 现 解 决 方案 管理 器 (Solution), 其 下 有 控制 台 Consolel 。 

建立 完成 控制 台 后 ,在 所 选 位 置 文件 夹 中 生成 控制 台 文件 夹 Consolel ,如 图 2. 22 所 示 ， 
Consolel 文件 夹 中 包括 项 目 子 文件 夹 和 解决 方案 文件 Consolel. sIn zn — 1 39i H 2H . 388 3$ 
包含 一 个 项 目 中 所 有 的 工程 文件 信息 ) ,如 图 2. 23 所 示 。 项 目 子 文件 夹 中 包含 了 一 个 项 目 
文件 Consolel. vfproj。 总 体 来 说 ,解决 方案 (Solution) 是 比 项 目 (vfproj) 更 大 的 概念 ,一 个 
解决 方案 可 以 含有 多 个 项 目 。 
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图 2.20 ”建立 控制 台 一 一 对 话 框 
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图 2.21 建立 控制 台 一 一 成 功 后 
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图 2.22 ”控制 台 文 件 夹 
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2.23 控制 台 文 件 夹 中 包含 的 内 容 


2. 添加 源 程 序 文 件 

创建 步骤 如 下 。 

D 选中 控制 台 Consolel 或 控制 台 Consolel 下 的 Source Files, 单 击 鼠 标 右 键 , 在 弹出 
的 快捷 菜单 中 选择 “添加 ”|“ 新 建 项 ”, 如 图 2. 24 所 示 ,弹出 “添加 新 项 ”对话 框 。 

@ 在 左 栏 “已 安装 的 模板 ”中 可 以 看 到 Intel(R) Visual Fortran Project Items, 单 击 选 
中 此 项 。 在 对 应 的 右 栏 中 选择 Fortran Free-form File €. {90)( 自 由 格式 的 FORTRAN). 
“名 称 ” 文 本 框 中 显示 默认 文件 名 Sourcel. f90( 可 修改 ) , 单 击 “添加 ?按钮 ,如 图 2. 25 所 示 。 

回 到 主 界面 ,完成 添加 源 程序 文件 到 控制 台 的 操作 , 主 窗 口中 打开 源 程 序 文件 
Sourcel.f90 的 文档 窗口 ,如 图 2.26 所 示 。 
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图 2.24 ”添加 源 程序 文件 一 -快捷 菜单 
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图 2.25 添加 源 程序 文件 一 一 对 话 框 


3. 编辑 源 程 序 
在 Sourcel. f90 的 文档 窗口 中 输入 例 1-1 源 程序 代码 ,如 图 2. 27 所 示 。 
4. 生成 可 执行 文件 
选择 菜单 “生成 ”| “生成 Consolel”, 如 图 2. 28 所 示 ,输出 窗口 显示 已 启动 生成 ,在 项 目 
子 文件 夹 中 创建 Debug 文件 严 。 编 译 需 先 执行 编译 命令 (Compiling) ,编译 Sourcel. {90 源 
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图 2.26 添加 源 程序 文件 一 一 完成 后 
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图 2.27 编写 程序 代码 
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程序 ,通过 后 会 生成 目标 文件 Sourcel. obj ,生成 操作 继续 执行 连接 命令 (Linking…) ,构建 
生成 可 执行 文件 Consolel. exe, 如 图 2.29 和 图 2. 30 所 示 。 
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图 2.28 局 动 生 成 命令 
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图 2.29 输出 窗口 显示 结果 


生成 过 程 中 如 果 有 错误 , 则 返回 编辑 .修改 程序 ,直到 生成 可 执行 文件 。 

5. 运行 程序 

选择 菜单 “调试 "| 开始 执行 (不 调试 )”, 执 行程 序 , 如 图 2.31 所 示 。 弹 出 执行 窗口 , 运 
行 结果 如 图 2. 32 所 示 。 

到 此 例 1-1 程序 的 上 机 过 程 完成 。 要 完成 例 1-2 的 上 机 操作 , 先 关 闭 Consolel ,建立 新 
的 解决 方案 ,重复 执行 上 述 步骤 1 到 步骤 5, 如 图 2.33 所 示 。 
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图 2.30 创建 Debug 文件 夹 ,生成 目标 文件 和 可 执行 文件 
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图 2.31 运行 程序 一 一 菜单 项 
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图 2.32 ”运行 程序 一 一 结果 
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图 2.33 运行 例 1-2 


对 于 Intel Visual Fortran 2011 和 VS2010 的 编译 调试 环境 ,还 需要 读者 通过 多 上 机 调 
试 和 运行 程序 来 熟悉 与 掌握 。 本 书 中 如 无 特别 说 明 ,都 采用 这 一 编译 环境 来 调试 程序 。 


设计 程序 的 最 终 目 的 是 得 到 一 个 无 错误 (语法 .运行 .逻辑 ?的 可 执行 程序 ,获得 正确 的 
结果 。 但 是 在 程序 设计 中 ,无 论 规模 是 大 是 小 ,错误 总 是 难免 的 。 程 序 的 设计 很 少 有 能 够 一 
次 完成 .没有 错误 的 (这 里 的 程序 不 是 指 只 有 一 个 输出 语句 这 样 的 程序 ,而 是 要 实现 一 定 的 
功能 .具备 一 定 实用 价值 的 程序 ) 。 在 编程 的 过 程 中 由 于 种 种 原因 ,总 会 出 现 这 样 或 那样 的 
错误 ,这 些 程序 的 错误 就 是 我 们 和 常 说 的 “bug”, 而 检测 并 修正 这 些 错误 的 过 程 就 是 debug” 
(调试 ) 。 调 试 程 序 是 查找 、 发 现 和 纠正 错误 的 有 效 途 径 。 主流 集成 开发 环境 都 提供 了 强大 
的 程序 调试 功能 ,在 程序 进行 编译 .连接 .运行 时 ,会 对 程序 中 的 错误 进行 诊断 。 能 快速 查 
找 、 发 现 和 纠正 错误 也 是 对 程序 设计 人 员 的 基本 要 求 。 本 章 介 绍 程序 调试 的 一 般 方法 。 


3.1 程序 调试 步骤 


程序 编写 好 后 ,调试 程序 的 基本 步骤 如 图 3. 1 所 示 。 


FAR NAFEA 


输入 程序 ， 创 建 源 程序 文件 


编辑 、 修 改 源 程序 文件 


编译 和 构建 产程 序 文件 


结束 ， 得 到 正确 程序 


图 3.1 程序 调试 步骤 


3.2 错误 类 型 和 查 错 方 法 

3.2.1 程序 销 误 类 型 

程序 的 错误 可 以 抽象 地 分 为 三 类 : 语法 错误 .运行 错误 和 逻辑 错误 。 

1. 语法 错误 

语法 错误 是 程序 设计 初学 者 出 现 最 多 的 错误 ,是 在 编译 过 程 中 发 现 的 ,不 符合 设计 语言 
语法 规则 而 产生 的 错误 。 出 现 语 法 错误 ,程序 编译 或 构建 就 通 不 过 ,程序 就 不 能 运行 。 通 
T ,编译 需 对 程序 进行 编译 或 构建 的 过 程 中 ,会 把 检测 到 的 语法 错误 以 提示 的 方式 列举 出 
来 ,又 称 为 编译 错误 。 

编译 天 检测 的 语法 错误 分 为 3 种 : 致命 错误 ,错误 和 警告 。 

(1) 致命 错误 : 这 类 错误 大 多 是 编译 程序 内 部 发 生 的 错误 ,发 生 这 类 错误 时 ,编译 被 迫 
中 止 ,只 能 重新 启动 编译 程序 ,但 是 这 类 错误 很 少 发 生 , 为 了 安全 ,编译 前 最 好 还 是 先 保 存 
程序 。 

(2) 错误 : 这 类 错误 通常 是 在 编译 时 语法 不 当 所 引起 的 。 例 如 : 插 号 不 匹配 ,变量 未 声 
明 ,表达 式 不 完整 ,缺少 必要 的 标点 符号 ,关键 字 输 入 错误 ,数据 类 型 不 匹配 ,循环 语句 或 选 
择 语 句 的 关键 字 不 匹配 ,结构 不 完整 等 。 产 生 这 类 错误 时 ,编译 程序 会 出 现 报错 提示 ,我们 
根据 提示 对 源 程序 进行 修改 即 可 。 这 类 错误 是 出 现 最 多 的 。 

(3) 警告 : 警告 是 指 怀疑 被 编译 程序 有 错 , 但 是 不 确定 ,有 时 可 强行 通过 。 这 些 警 告 中 
有 些 会 导致 错误 ,有 些 可 以 通过 。 例 如 调用 子 程序 时 , 虚 参 、 实 参 类 型 不 一 致 等 。 

语法 错误 是 通过 编译 和 构建 来 查找 、 发 现 和 纠正 的 。 此 类 错误 相对 简单 ,调试 起 来 比较 
容易 。 一 般 编译 系统 会 自动 提示 相应 的 错误 地 点 和 错误 原因 ,比如 哪 一 行 代码 少 了 个 括号 
等 诸如 此 类 的 提示 。 如 图 3.2 所 示 ,这 里 块 IF 结构 缺少 结束 语句 ENDIF。 对 于 常见 的 错 
误 ,如 能 看 懂 直 接 改 正 即 可 ,如 果 看 不 懂 原 因 , 可 以 将 错误 提示 信息 输入 搜索 引擎 查找 ,一般 
ЕТ" ik. 

.运行 错误 

tortie 去 行 过 程 中 出 现 的 错误 。 程 序 通 过 语法 错误 检测 后 ,生成 可 执行 文 
件 , 但 并 不 说 明 程 序 就 一 定 能 正确 运行 ,往往 还 会 出 现 错误 ,需要 继续 调试. 

运行 错误 一 般 可 归纳 为 两 类 。 一 类 是 运行 程序 时 系统 给 出 出 错 信 息 , 程 序 被 迫 终止 。 
例如 除法 运算 时 除数 为 0 ,数组 下 标 越界 ,输入 数据 格式 错误 ,格式 编辑 符 与 输出 项 不 匹配 ， 
文件 打 不 开 ,磁盘 空间 不 够 等 。 此 类 错误 发 生 时 ,编译 平台 一 般 也 会 提示 相应 的 信息 ,对 于 
常规 的 错误 会 有 比较 精确 的 提示 ,有 时 提示 的 错误 原因 会 比较 模糊 ,但 因为 此 类 错误 一 般 在 
程序 运行 时 ,只 在 特定 的 条 件 下 才 会 发 生 , 所 以 根据 错误 发 生 的 条 件 , 能 够 大 致 判断 程序 出 
错 的 代码 段 ,结合 错误 的 原因 ,能 比较 方便 地 调试 出 错误 。 

另 一 类 错误 表现 为 运行 时 系统 不 正常 或 结果 不 正确 ,如 程序 不 能 正常 结束 ,没有 任何 输 
出 结果 或 输出 结果 与 预期 的 不 一 致 等 。 

3. 逻辑 错误 

逻辑 错误 主要 表现 在 程序 运行 后 ,得 到 的 结果 与 预期 .设想 的 不 一 致 ,这 就 有 可 能 是 出 
现 了 逻辑 错误 。 这 种 错误 在 语法 上 是 有 效 的 ,但 是 在 逻辑 上 是 错误 的 。 通 篆 出 现 逻 辑 错误 
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Source1.f90 x 
ГАЛТ 
IF(A»C) THEN 

Т=А 
А=С 
С=Т 
ENDIF 
IF (B»C) THEN 


2837/X"Console2" (1 个 项 目 ) 
~ Ш Сопѕоіе2 
— Header Files 
c Resource Files 
v [a Source Files 
2] Source1.f90 


M O 2 个 错误 | болш [007 
15288 
"11 | еггог #6321: An unterminated block Sourcelf90 |14 
exists 


9 2 Compilation Aborted (code 1) Source1.f90 1 


图 3.2 错误 信息 提示 


的 程序 都 能 正常 运行 ,系统 不 会 给 出 提示 信息 ,所 以 很 难 发 现 错误 。 要 发 现 和 改正 逻辑 错 
误 ,需要 仔细 阅读 和 分 析 程 序 。 

程序 运行 了 ,也 没有 出 错 , 但 是 执行 出 来 的 结果 不 是 用 户 想 要 的 ,这 分 为 以 下 两 种 情况 。 

(1) 能 够 看 出 错误 。 例 如 ,查询 工资 大 于 5000 元 的 人 员 名 单 , 却 出 现 了 3000 元 的 
工资 。 

(2) 看 不 出 错误 ,直到 偶然 的 机 会 才 发 现 程序 肯定 出 错 了 ,后 果 就 很 严重 。 例 如 进行 
个 复合 大 型 运算 , 某 个 常数 输入 错 了 ， 最 后 的 结果 人 工 无 法 判断 对 错 ， 又 以 该 结果 进行 其 他 
的 运算 等 ,最 后 发 现 错误 时 误差 过 大 ,就 得 从 头 排 查 错 误 , 例 如 使 用 了 不 正确 的 变量 ,指令 的 
次 序 错误 ,循环 的 条 件 不 正确 ,程序 设计 的 算法 考虑 不 周全 等 。 

通常 ,逻辑 错误 也 会 附带 产生 运行 错误 。 在 一 般 情 况 下 ,编译 天 在 编译 程序 时 ,不 能 检 
测 到 程序 中 的 逻辑 错误 ,也 不 会 产生 逻辑 错误 的 提示 ,因此 逻辑 错误 比较 难 排除 ,需要 程序 
员 和 仔细 地 分 析 程 序 , 并 借助 集成 开发 环境 提供 的 调试 工具 ,才能 找到 出 错 的 原因 并 排除 


3.2.2 查 第 的 实验 万 法 


1. 利用 系统 信息 

(1) 编 境 过 程 中 的 错误 。 

用 户 根据 错误 信息 分 析 产 生 错 误 的 原因 和 性质, 并 进行 相应 修改 。 要 注意 的 是 ,有 时 源 
程序 中 的 一 个 含糊 错误 会 引起 编译 程序 的 连锁 反应 ,产生 许多 错误 信息 ,在 这 种 情况 下 , 往 
往 只 须 纠 正 一 个 出 错 信 息 对 应 的 地 方 即 可 。 例 如 , 硅 程 序 中 变量 说 明 语 句 有 错 , 这 时 那些 与 
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该 变量 有 关 的 程序 行 都 会 被 编译 系统 检查 出 错 。 这 种 情况 下 ,只 要 修改 了 说 明 语句 的 错误 ， 
其 余 错 误 就 会 同时 消失 ,所 以 一 般 改 完 一 处 错误 后 就 重新 编译 一 次 。 

(2) 连接 过 程 中 的 错误 。 

在 连接 过 程 中 要 涉及 到 模块 与 模块 .模块 与 系统 之 间 的 关系 。 如 果 程 序 中 有 外 部 调用 、 
存储 区 设置 和 各 模块 间 的 接口 等 方面 错误 ,连接 程序 就 会 提示 错误 信息 。 

(3) 运行 过 程 中 的 错误 信息 提示 。 

2. 插 人 调试 语句 

除了 利用 系统 给 出 的 信息 进行 分 析 、 判 断 之 外 ,常用 的 调试 方法 还 有 在 程序 中 插入 一 些 
调试 语句 。 常 用 调试 语句 有 以 下 几 种 。 

(1) 设置 状态 变量 

每 个 模块 中 设置 一 个 状态 变量 ,程序 进入 该 模块 时 , 赋 给 该 状态 变量 一 个 特殊 值 , 根 据 
各 状态 变量 的 值 , 可 以 判断 程序 活动 的 大 致 路 径 。 

(2) iE XS 

TE EAT Bi E uy ЖЕ K 28 P ВВ — E sg ВЕДЕ ВЕЕ Л IST — K ETE — IK. XX 
FE ,不 仅 可 以 判断 程序 路 径 ,而 且 当 程序 中 有 死 循环 时 ,用 这 种 方法 能 很 快 发 现 。 

(3) 插入 打印 语句 

打印 语句 是 最 常用 的 一 种 调试 语句 ,用 起 来 方便 ,能 产生 许多 有 用 信息 。 

将 打印 语句 放 在 靠近 该 语句 (或 输 和 语句) 之后、 模块 人 口 处 或 调用 语句 前 后 ,可 以 
帮助 检查 数据 有 没有 被 正确 地 输入 或 数据 传递 是 否 正 确 。 

将 打印 语句 放置 在 模块 首部 或 尾部 、 调 用 语句 前 后 .循环 结构 内 的 第 一 个 和 最 后 一 
个 语句 、 循 环 结构 后 的 第 一 个 语句 .选择 结构 前 或 选择 结构 每 一 分 支 中 的 第 一 个 语句 的 位 
置 ,用 以 提供 程序 执行 路 径 信息 。 

选择 一 些 适 合 的 点 设置 打印 语句 ,以 便 打 印 有 关 变 量 的 值 ,检查 是 否 正 确 。 

3. 借助 调试 工具 

利用 编译 系统 提供 的 调试 工具 进行 单 步 、 追 踪 运 行 。 本 章 将 介绍 СУЕ 编译 环境 和 IVF 
在 VS2010 中 的 调试 工具 的 一 般 应 用 。 

以 上 方法 也 常常 联合 起 来 使 用 。 


3.2.3 和 销 误 修改 原则 


(1) 要 勒 于 思考 。 程 序 调试 是 分 析 问 题 .解决 问题 的 过 程 。 培 养 调 试 程 序 的 能 力 , 最 有 
效 的 方法 是 勒 于 思考 BUD A T AS S й. 

(2) 如 条 陷 人 困境 ,要 与 别人 交流 目 己 的 问题 。 在 交流 的 过 程 中 ,有 可 能 突然 找到 问题 
所 在 ,别人 的 提示 或 许 对 目 己 有 很 大 局 发 。 

(3) 如 来 陷入 困境 ,可 适当 间 隐 一 定时 间 后 再 去 考虑 ,不 要 一 味 纠 结 下 去 。 如 来 在 适当 
的 时 间 内 找 不 到 问题 所 在 (小 程序 半 小 时 ,大 程序 几 小 时 ) ,就 先 放下 问题 , 隔 一 段 时 间 后 有 
可 能 会 灵机 一 动 .解决 问题 。 

(4) 不 要 在 问题 没有 搞 清楚 前 随意 改动 程序 ,这 样 不 利于 找 出 错误 ,程序 越 改 越 乱 ,以 
至 于 面目 全 非 。 
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3.3 调试 工具 
3.3.1 CVF6.5 的 调试 工具 
CVF6. 5 开发 环境 提供 了 功能 强大 的 调试 工具 debug ,使 用 debug 可 以 快速 ,方便 、 高 
效 地 检查 发现 和 纠正 错误 。debug 功能 强大 内容 丰富 ,这 里 只 简单 介绍 使 用 debug 测试 
工具 调试 程序 的 步骤 。 
(1) 激活 Build 和 Debug 工具 栏 。 在 工具 栏 空白 处 单 击 鼠 标 右 键 ,弹出 快捷 菜单 ,选择 
Build 和 Debug 工具 栏 ,如 图 3.3 所 示 。 


“a diz — Compaq Yisual Fortran — [D:ħdiz\ex02\1t02.f90 +] 


Ыы File Edit View Insert Project Build Tools Yindow Help 1х 
асна: ъео-с- masa la 
|ех02 „|№пз2 Debug J 8426 | 1 EA- | Build T R. 


жав |» m OP OO | | E g =m = g gr 


一 Debug Т. АА 
w Üutput 
1 ——===— PROGRAH EXñH1 2 四 Werkspace 
| l Workspace 'd12': 1 pre EAR aca d Reel = suni 
p. Р a prg т | - 
= @ЙП ext? files | IF(ñ>B)THEN "s 
*- CL] Source Files | т-а v pe 
J Header Files n-B Build MiniBar 
C] Resource Files B-T Resource 
EHDIF 
IF(fi» C) THEN 
Т=А 
A=C 
C=T 
ENDIF 
IF(B>Ü)THEH 
T=B 
B=Ú 
C-T 
ENDIF 


| Ln21,Col1 [REC |COL [OVR RE Z 
图 3.3 激活 Build 和 Debug 工具 栏 


(2) 通过 Build 工具 栏 “ 断 点 设置 ?按钮 (天 ) 给 程序 设置 断 点 。 断 点 就 是 程序 在 运行 中 
暂停 的 位 置 ,用 于 通知 调试 器 何 时 何 地 暂停 程序 的 执行 。 根 据 需 要 可 设置 多 个 断 点 。 将 光 
标 置 于 需要 设置 断 点 的 语句 位 置 , 单 击 Build 工具 栏 上 的 “ 断 点 设置 ”按钮 , 即 可 在 该 语句 处 
设置 一 个 断 点 。“ 断 点 设置 ?按钮 是 一 个 开关 按钮 ,再 次 单 击 可 取消 断 点 ,如 图 3.4 所 示 。 

(3) 单 击 Build 工具 栏 的 “开始 调试 程序 ?按钮 ( 胆 ) ,在 运行 窗口 中 输入 数据 后 ,运行 至 
第 一 个 断 点 位 置 暂 停 , 断 点 出 现 黄 色 箭 头 , 如 图 3.5 所 示 。 

(4) 激活 显示 有 关 Debug 调试 窗口 ,通过 调试 窗口 可 以 观察 程序 运行 过 程 中 的 重要 参 
数 ( 变 量 内存. 寄存 需 等 )。CVF6. 5 dE Eft 6 个 Debug 窗口 ,常用 的 有 两 个 : 变量 窗口 
Locals 和 观察 窗口 Watch ,用 于 了 解 变 量 和 表达 式 的 取 值 情况 ,以 判断 .分析 错 误 所 在 。 如 
图 3. 5 所 示 ,Locals 窗口 中 自动 显示 在 范围 内 的 变量 ,在 Watchl 窗口 中 可 以 添加 想 要 观察 
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“diz — Compaq Visual Fortran - [D:\diz\ex02\1t02.... [= 


[rie Edit View Insert Project Build Tools Window Help 
uw dg * зак 2--- mime a 
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in32 Debug 
$ n {P (P 1) 67 


EE 


: aJ >] 
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LJ Header Files 
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READ *,0,B,C 
IF (A»B)THEN 
T= 
A=B 
B=T 
ENDIF 
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2 Resource Files Ф IF(ñ>C)THEN 
Т=й 
LIH 
Сет 
ENDIF 
Ф IF(B>C)THEH 
T=B 
B=G 
GC=T 
ENDIF 
Ф PRINT =,ñ,B,C 
EHD 
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READ *,6,B,C 
IF(ñ>B)THEN 
Т=й 
A=B 
B=T 
ENDIF 
@) IF(R»C)THEH 
T=ñ 
ast 
C-T 
EHDIF 
Ф Ir(B»C)THEH 
T-B 
B= 
C=T 
ENDIF 
Ф PRINT *,0,B,C 
F HD 
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图 3.5 在 第 1 个 断 点 处 暂停 
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(5) 单 击 “开始 调试 程序 ?按钮 ,从 暂停 断 点 处 继续 运行 到 下 一 个 断 点 或 结束 程序 运行 。 
运行 至 第 3 个 断 点 时 变量 窗口 和 观察 窗口 的 显示 内 容 进行 了 刷新 ,黑色 数据 为 未 刷新 值 , 红 
色 为 刷新 值 ,如 图 3.6 所 示 , 方 框 内 数据 为 刷新 数据 。 


. dilz — Compaq Yisual Fortran [break] 一 [D: ALLAIT 


[Tm Edit View Insert Projact Debug Tools Window Help 
1а ыб ;mei2-c-inEWW à 
жав | PPU mgEDg&g Ф xt: 


READ *,R,B,C 
IF (RB) THEN 
T-R 
A=B 
B=T 
ENDIF 
IF(A>C)THEN 
Т=а 
A=C 
с=т 
ENDIF 
IF (B5C) THEN 
T-B 
B=C 
C=T 
ENDIF 
Ep типп *,ñ,B,C 


Break at location breakpoint | Ln19,Col1 (АЕС CO! Z 


图 3.6 调试 过 程 中 查看 刷新 数据 


3.3.2 VS2010 的 调试 工具 


只 介绍 VS2010 使 用 调试 工具 .通过 上 断 点 调试 程序 的 过 程 

pried 将 光标 插入 点 放 在 要 设置 断 点 的 位 置 ， m3 TE 5$ th BJ DE Ж 
fep E BE" rU | ^Ш ЛЮ”. ШШ 3.7 所 示 。 如 果 要 删除 断 点 ,方法 相同 ,如 图 3. 8 所 示 。 

如 图 3.9 所 示 ,可 以 通过 选择 主 窗口 菜单 “调试 ?| ”窗口 ?| * 断 点 ”, 打 开 * 断 点 ”窗口 ,如 
图 3. 10 所 示 进 行 断 点 编辑 。 

(2) 启动 调试 。 选 择 菜 单 “ 调 试 ?| “启动 调试 ”, 或 按 F5 键 , 如 图 3.11 所 示 。 

(3) 激活 显示 有 关 Debug 调试 窗口 。 选 择 沫 单调 试 ” “窗口 ”| 监视 ”| 监视 17 或“ 调 
试 ” | dint 局 部 变量 ,如 图 3. 12 Brzn « 1 JF НАУ 0 zs Н. MR JH Е B IW. 如 
图 3. 13 所 示 ,在 第 1 个 断 点 暂停 

(4) FÈ F5 键 或 单 击 工 具 栏 上 的 如 按钮 ,从 暂停 断 点 人 处 继续 运行 到 下 一 个 断 点 或 结束 
程序 运行 。 运 行 至 第 2 个 断 点 时 局 部 变量 窗口 和 监视 1 窗口 的 显示 内 容 进 行 了 刷新 ,黑色 
数据 为 未 刷新 值 ,红色 为 刷新 值 ,如 图 З. 14 所 示 , 方 框 内 数据 为 刷新 数据 。 运 行 至 第 3 个 断 
点 时 局 部 变量 窗口 和 监视 1 窗口 的 显示 内 容 如 图 3.15 所 示 。 
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PROGRAM EXAM] 2 
INTEGER A, B, C. T 
READ *, A,B,C 
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图 3.13 在 第 1 个 断 点 暂停 窗口 查看 情况 
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在 调试 器 执行 到 断 点 后 ,在 VS2010 中 还 可 以 根据 需要 逐个 过 程 或 逐 句 地 执行 代码 ,可 
以 单 击 相应 按钮 或 按 下 相应 功能 键 来 实现 ,如 图 3. 16 所 示 。 


图 3.16 WoA Web iA L R. 


3.4 FZ KEE 


ВУ ЛЕ Bl Ea ШЖ X I , ZE 41 BR АУ BÉ н: K BR P] 10] Va sk A # Же P P BJ H OR P 27 Ww 45 
很 不 方便 ,也 给 调试 程序 带 来 一 定 困难 。 为 了 解决 这 一 问题 ,开发 环境 提供 了 程序 多 区 域 显 
示 的 功能 。 通 过 这 一 功能 ,用 户 可 同时 浏览 ,查看 程序 的 不 同 部 分 。 

在 CVF6.5 的 编译 环境 下 选择 菜单 Windows| Split, 可 将 窗口 分 成 4 个 区 域 。 

区 域 1,2 或 区 域 3、4 可 同时 左右 移动 程序 文本 ,区 域 1.3 或 区 域 2、4 可 同时 上 下 移动 
程序 文本 ,如 图 3. 17 Bron. 
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PROGRAM EXAM1 2 
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EHDIF 
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3.17 多 区 域 显 示 (1) 


在 VS2010 的 编译 环境 下 选择 表单 “窗口 ”1“ 拆 分 ”, 可 将 窗口 分 成 两 个 区 域 ,如 图 З. 18 
所 示 。 每 个 区 域 可 以 调整 为 不 同 的 显示 比例 ,各 目 可 以 上 下 左右 移动 文本 。 
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Console2 - Microsoft Visual Studio 


TURF) "HB V) BP 
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IF (В>С) THEN 
T=B 
B=C 
C-T 

ENDIF 

PRINT *, А,В 


图 3.18 多 区 域 显 示 (2) 


上 机 实验 指导 


学 习 程 序 设计 ,上 机 实验 是 十 分 重要 的 环节 。 本 草 设计 了 12 个 实验 ,这 些 实验 和 课堂 
教学 紧密 配合 ,通过 有 针对 性 的 上 机 实验 ,可 以 更 好 地 熟悉 FORTRAN95 的 功能 ,掌握 
FORTRAN95 程序 设计 的 方法 ,并 培养 一 定 的 应 用 开发 能 力 。 每 个 实验 都 安排 有 要 求 的 机 
时 ,也 可 以 根据 实际 情况 从 每 个 实验 中 选择 部 分 内 容 作 为 上 机 练习 。 第 9 一 12 个 实验 是 综 
合 性 实验 ,可 以 作为 FORTRAN95 课程 设计 和 程序 设计 实践 的 内 容 

eim 今 效果, 务必 做 到 以 下 几 点 。 
(1) 实验 前 认真 准备 ,做 好 前 期 工作 。 根 据 实验 目的 和 实验 内 容 , 复 习 好 实验 中 可 能 要 
用 到 的 命令 ,语句 , 想 好 编程 思路 ,做 到 胸 有 成 狂 ,提高 上 机 效率 。 
(2) 实验 过 程 中 积极 思考 ,深入 分 析 程 序 的 执行 结果 和 相关 屏幕 信息 的 含义 、 出现 的 原 
因 并 提出 解决 办 法 。 
(3) 实验 后 认真 总 结 。 A ыа к ын лыы Ж, 并 写 出 实验 报 
。 实验 报告 应 包括 实验 目 жили 青 单 .运行 结果 以 及 实验 的 收获 与 体 
等 。 
程序 设计 和 应 用 开发 能 力 的 提高 需要 不 断 的 上 机 实践 和 长 期 的 积累 。 在 上 机 过 程 中 会 
遇 到 各 种 各 样 的 问题 ,分 析 问 题 和 解决 问题 的 过 程 就 是 经 验 积累 的 过 程 。 只 要 能 按照 要 求 
去 做 ,就 能 有 所 收获 ,计算 机 应 用 能 力 就 会 得 到 提高 。 


阔 oè 


Ж FORTRAN95 软件 开发 环境 


一 、 实 验 目 的 


l. 了 解 FORTRAN95 与 软件 开发 环境 的 关系 。 

2. ЖА VS2010 的 集成 开发 环境 。 

3. ЖА CVF6.5 的 开发 环境 。 

4. 掌握 FORTRAN95 上 机 实验 的 基本 操作 过 程 。 

5. 掌握 解决 方案 、 控 制 台 ,文件 的 基本 概念 和 创建 方法 。 

6. 理解 工作 空间 、 项 目 、 文件 的 基本 概念 和 创建 方法 。 

Т. 了 解 程序 开发 过 程 中 出 现 的 错误 类 型 和 纠正 错误 的 调试 方式 。 


【实验 内 容 1.1] 输入 下 列 程序 ,观察 程序 运行 结果 。 


PROGRAM ЕХАМ1 

PRINT х, "THIS IS A FORTRAN PROGRAM. ' 

END 

【实验 内 容 1.2] 编写 程序 ,输入 圆 的 半径 ,计算 并 输出 圆 的 周 长 和 面积 。 
【实验 内 容 1.3] 输入 下 列 程序 ,观察 程序 运行 结果 。 


FUNCTION MYMAX(X, Y) ! 定 义 图 数 子 程序 ,X 了 为 形 参 
ТЕ (Х>Ү) THEN 
МҮМАХ = X 
ELSE 
MYMAX - Y 
ENDIF 
END 
PROGRAM EXAM3 ! 主 程序 
REAL A, B,C ! 定 义 二 个 实 型 变量 
READ x, A,B ! 输 入 变量 的 值 
C = MYMAX( A, B) 1 调用 MYMAX р 
PRINT +, 'MAX = ',C 1 输出 结果 
FND 


— r3 Hh тї 
=. Z w x 


KERER 2 学 时 。 
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实验 内 容 1.1 的 实验 要 求 

1. 在 VS2010 集成 开发 环境 中 运行 程序 的 要 求 

ВЕ НР BE XXE shiyan01.8]£& fe D RE. 

在 文件 夹 shiyan01 内 创建 控制 台 examl, 在 用 户 自 定义 文件 夹 shiyan01 内 创建 解 
决 方案 文件 来 ехат1. 

О 在 控制 台 内 创建 源 程序 文件 сх. £90 ,在 源 程 序 文件 中 输入 给 定 的 程序 代码 。 

由 生成 examl. exe, 执 行程 序 ,观察 运行 结果 。 

2. 在 CVF6. 5 的 Microsoft Developer Studio 开发 环境 中 运行 程序 的 要 求 

创建 新 工作 空间 sy01, 工 作 空 间 文 件 夹 创 建 在 D 盘 上 。 

在 文件 夹 sy01 内 创建 新 项 目 xml, 项 目 文件 夹 建 立 在 工作 空间 文件 夹 内 。 

在 项 目 xml 内 创建 源 程序 文件 exl. f90, 源 程序 文件 创建 在 项 目 文 件 夹 内 ,在 源 程 
序 文件 中 输入 、 编 辑 给 定 的 程序 代码 。 

由 编译 源 程 序 cx1. {90, 构 建生 成 可 执行 程序 xml. exe. DUET Ee FF. ,观察 运 行 结果 。 

实验 内 容 1. 2 的 实验 要 求 

l. 前 期 准备 

中 通过 对 该 问题 的 分 析 人 研究 ,设计 求解 算法 ,并 绘制 流程 图 。 

根据 算法 和 流程 图 ,编写 程序 。 

2. 在 VS2010 集成 开发 环境 中 运行 程序 的 要 求 

在 文件 夹 shiyan01 内 创建 控制 台 exam2 ,在 用 户 目 定义 文件 夹 shiyan01 内 创建 解 
决 方案 文件 夹 exam2 。 

在 控制 台 内 创建 源 程序 文件 cx2. {90 ,在 源 程序 文件 中 输入 编辑 给 定 的 程序 代码 。 

生成 exam2. exe, 

由 运行 程序 ,分 别 从 键盘 输入 半径 1.2.5、12.5, 观 察 运 行 结 果 。 

3. 在 CVF6. 5 的 Microsoft Developer Studio р анаа 序 的 要 求 

在 工作 空间 sy01 内 创建 新 项 目 xm2 ,项目 文件 夹 建立 在 工作 空间 文件 夹 内 。 

在 项 目 xm2 内 创建 源 程序 文件 cx2. £90 , 源 程序 文件 创建 在 项 目 文件 夹 内 ,在 源 程 
序 文件 中 输入 、 编 辑 给 定 的 程序 代码 。 

编译 源 程 序 cx2. £90 ,构建 生成 可 执行 程序 xm2. exe, 

运行 程序 ,分 别 从 键盘 输入 半径 1.2.5、12.5, 观 察 运 行 结果 。 

1. 在 VS2010 集成 开发 环境 中 运行 程序 的 要 求 

在 文件 夹 shiyan01 内 创建 控制 台 exam3, 在 用 户 自 定义 文件 夹 shiyan01 内 创建 解 
决 方案 文件 来 exam3, 

久 在 控制 台 内 创建 源 程序 文件 cx3. {90 ,在 源 程序 文件 中 输入 编辑 给 定 的 程序 代码 。 

x 生成 exam3. exe, 

) 运行 程序 ,从 键盘 输入 任意 两 个 数 ,观察 运行 结 : 

O 将 文件 来 shiyan01 复制 到 U 3 gene 每 次 -实验 结束 后 的 默认 操作 ， 以 后 不 再 
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2. 在 CVF6.5 的 Microsoft Developer Studio 开发 环境 中 运行 程序 的 要 求 
在 工作 空间 sy01 内 创建 新 项 目 xm3, 项 目 文 件 夹 建立 在 工作 空间 文件 夹 内 。 
在 项 目 xm3 内 创建 源 程序 文件 cx3. {90, 源 程序 文件 创建 在 项 目 文 件 夹 内 ,在 源 程 
序 文件 中 输入 编辑 给 定 的 程序 代码 。 
编译 源 程序 cx3. {90 ,构建 可 执行 程序 xm3. exe。 
运行 程序 ,从 键盘 输入 任意 两 个 数 ,观察 运行 结果 。 
将 文件 夹 sy01 复制 到 U 盘 。 该 操作 是 每 次 实验 结束 后 的 默认 操作 ,以 后 不 再 提示 。 
其 后 的 实验 项 目 如 无 特殊 要 求 ,只 给 出 在 VS2010 集成 开发 环境 中 运行 程序 的 要 求 。 
按照 附录 A 中 实验 报告 模板 的 要 求 完 成 上 机 实验 报告 。 


1. 在 VS2010 集成 开发 环境 中 运行 程序 的 操作 步 又 
实验 内 容 1.1 的 上 机 步骤 如 下 。 
D Æ D 盘 创 建文 件 夹 shiyan01。 
а 5) Intel Parallel Studio XE 2011 的 Parallel Studio XE 2011 with VS2010 或 
Microsoft Visual Studio 2010 , 进 人 开发 环境 。 
创建 控制 台 examl。 从 “文件 * 子 菜单 中 选择 * 新 建 *|* 项 目 ", 在 弹出 的 新 建 项 目 对 
话 框 中 选择 Intel(R) Visual Fortran 下 的 Console Application. = f£ Empty Project. * 44 
称 " 文 本 框 中 修改 名 称 为 examl ,位 置 选择 D 盘 的 用 户 自 定义 文件 夹 shiyan01, 单 击 “ 确 定 ” 
按钮 。 
创建 ,编辑 源 程序 文件 。 选 择 exam] 下 的 Source Files,; 单 击 鼠 标 右 键 ,在 弹出 的 快 
捷 菜 单 中 选择 添加 | 新 建 项 ,在 弹出 的 添加 新 项 对 话 框 中 选择 Fortran Free-form File(. #90) 
(自由 格式 的 FORTRAN) ,名 称 文本 框 中 修改 文件 名 为 cxl. f90 , 单 击 “添加 ”按钮 。 在 源 程 
序 文 件 中 输入 给 定 的 程序 代码 。 
б) 生成 examl。 选 择 菜 单 “ 生 成 ”中 的 “生成 Consolel” ,生成 可 执行 文件 。 
运行 程序 。 选 择 荣 单 “ 调 试 ”* 中 的 “开始 执行 (不 调试 )( 阳 )”, 执 行程 序 。 
实验 内 容 1.2 的 上 机 步骤 如 下 。 
(1) 前 期 准备 
通过 对 该 问题 的 分 析 研 究 ,设计 求解 算法 ,并 绘制 流程 图 ,如 实验 图 1. 1 所 示 。 
根据 算法 和 流程 图 ,编写 程序 如 下 : 
! 计 算 圆 的 周 长 和 面积 
РЕОСЕАМ ЕХАМ2 
PARAMETER РІ = 3. 1415926 
REAL R, L, S 
PRINT « ，' 请 输入 圆 的 半径 : ' 
READ *,R 
L=2xPIx R 
S=PIx Rx R 
PRINT є, ' ЯЛЕ = uL 


PRINT * ，' 圆 的 面积 = ',5 
END 
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开始 


”输入 图 的 半径 值 R | 


计算 圆 的 周 长 L 


计算 圆 的 面积 $ 


”输出 圆 的 周 长 L 


输出 圆 的 面积 5 


(2) 上 机 步骤 

本 次 实验 内 容 的 上 机 步 缀 需要 在 前 面 实 验 步 缀 的 基础 上 完成 。 文 件 夹 shiyan01 已 经 
建立 ,默认 情况 下 ,集成 开发 环境 已 打开 ,目前 打开 的 是 解决 方案 exam01, 先 关闭 该 解决 方 
案 。 如 有 果 集 成 开发 环境 已 关闭 , 则 先 打 开 。 

创建 控制 台 exam2 ,建立 在 用 户 自 定义 的 文件 夹 shiyan01 中 ,方法 同 实 验 内 容 1.1, 

创建 、 编 辑 源 程序 文件 cx2. {90。 

生成 exam2. exe。 

运行 程序 。 运 行 三 次 ,分 别 输入 1、2.5、12.5, 得 到 三 次 运行 结果 。 

实验 内 容 1.3 的 上 机 步骤 与 实验 内 容 1. 2 的 上 机 步骤 类 似 。 

2. {Е CVF6. 5 的 Microsoft Developer Studio 开发 环境 中 运行 程序 的 操作 步骤 

实验 内 容 1. 1 的 上 机 步 又 如 下 。 

JB 8j Compaq Visual Fortran 6. 5 的 Developer Studio, 进 入 开发 环境 ， 

@ 创建 工作 空间 。 选 择 File 菜单 的 New 菜单 项 ,在 弹出 的 New 对 话 框 中 选择 
Workspace 选项 卡 ,完成 以 下 操作 : 

° 在 Location 文本 框 中 输入 D:\ 或 单 击 右 侧 按钮 查找 指定 D 4; 

* 在 Workspace Name 文本 杠 中 输入 工作 空间 名 sy01; 

。 单 击 OK 按钮 。 

创建 新 项 目 。 选 择 File 3 
选项 卡 , 完 成 以 下 操作 : 

。 在 项 目 类 型 区 单 击 选 取 Win32 Console Application 项 目 类 型 ; 

。 单 击 选取 Add to current work 项 ,在 Location Ж ЖЕ В ТЛ (Н Di \5у01; 

* 在 Project name 文本 杠 中 输入 项 目 名 xml; 
单 击 OK 按钮 。 
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单项 ,在 弹出 的 New 对 话 框 中 选择 Projects 


实验 1 熟悉 FoRTRAN95S 软件 开发 环境 外 


创建 源 程序 文件 。 选 择 File 菜单 的 New 菜单 项 ,在 弹出 的 New 对 话 框 中 选择 Files 
选项 卡 ,完成 以 下 操作 : 

。 在 文件 类 型 区 单 击 选取 Fortran Free Format Source File 文件 类 型 ; 

。 单 击 选取 Add to Project 项 ,在 下 方 列表 框 中 选择 项 目 xml; 

。 在 File name 文本 框 中 输入 文件 名 名 cx01; 

。 单 击 OK 按钮 。 

© 在 cx01. f90 文档 窗口 输入 、 编 辑 源 程序 代码 。 

编译 源 程 序 文 件 。 选 择 Build 菜单 的 Compile 某 单 项 或 单 击 Build MiniBar 工具 栏 
EH 8 命令 按钮 。 如 果 有 错 , 根 据 提 示 对 照 修改 ,直到 生成 目标 文件 。 

D 构建 可 执行 程序 。 选 择 Build 菜单 的 Build 菜单 项 或 单 击 Build MiniBar 工具 栏 上 
fp Tf. WEG T ,根据 提示 对 照 修 改 , 直 到 生成 可 执行 文件 。 

运行 程序 。 选 择 Build X 8) Execute 菜单 项 或 单 击 Build 工具 栏 上 的 ! 命令 按 
HL ,得 到 运行 纺 朱 。 

实验 内 容 1.2 的 上 机 步骤 如 下 。 

做 好 前 期 准备 工作 ,本 实验 内 容 上 机 步骤 需要 在 前 面 实验 步 又 的 基础 上 完成 。 工 作 区 
ѕу01 已 经 创建 ,默认 情况 下 ,工作 区 已 经 打开 ,如 果 已 经 关闭 , 则 将 其 打开 。 新 项 目 将 在 已 
打开 的 工作 区 内 创建 。 

(D 创建 新 项 目 xm2 ,方法 同 实验 内 容 1. 1。 

创建 源 程序 文件 cx2. f90。 

Z FE cx2. 190, 

构建 生成 可 执行 文件 xm2. exe。 

О 运行 程序 。 运 行 三 次 ,分 别 输入 1、2.5、12.5, 得 到 三 次 运行 结果 。 

实验 内 容 1. 3 的 上 机 步骤 与 实验 内 容 1. 2 ВУ ЕМ Д. 


五 、 实 验 小 结 


本 实验 是 学 习 FORTRAN95 程序 设计 的 首次 实验 ,和 擎 握 实 验 内 容 、 熟悉 上 机 环境 与 步 
又 对 后 续 实 验 至 关 重 要 。 通 过 本 实验 ,要 求 大 家 对 FORTRANO95 软件 开发 环境 有 一 个 全 面 
和 清晰 的 了 解 ,熟练 掌握 常用 菜单 和 工具 按钮 的 操作 ,熟悉 上 机 过 程 。 

通过 次 实验 ,应 重点 掌握 控制 台 、 解 决 方案 、 工 作 空 间 、 项 目 、 源 程序 、 编 译 , 构 建 , 生 成 、 
可 执行 程序 .运行 等 基本 概念 。 
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利用 课余 时 间 完 成 以 下 练习 ,以 巩固 所 学 知识 。 

【练习 1.1】 已 知 一 个 圆柱 形 物体 的 底 边 半 径 和 高 , 求 圆柱 的 体积 ,并 输出 。 编 程 实 
现 , 其 中 底 边 半径 和 高 的 值 由 键盘 输入 。 

【练习 1.2】 已 知 一 个 圆锥 形 物体 的 底 边 半径 和 高 , 求 圆锥 的 体积 ,并 输出 。 编 程 实 
现 ,其 中 底 边 半径 和 高 的 值 由 键盘 输入 。 


8; FORTRAN9S 程序 设计 实验 指导 与 测试 
作业 要 求 : 
(D 创建 用 户 自 定义 文件 夹 zuoye01。 
在 文件 夹 zuoye01 内 分 别 创建 控制 台 xt01 和 xt02, 在 用 户 自 定义 文件 夹 zuoye01 内 
分 别 创建 生成 解决 方案 文件 来 xt01 和 xt02。 
O 在 控制 台 xt01 内 创建 源 程序 文件 exl. {90 ,在 x102 内 创建 源 程序 文件 cx2. {90。 
生成 xt01. exe 和 xt02. exe, 分 别 执行 程序 ,得 到 运行 结果 。 
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程序 设计 语言 是 一 类 形式 化 的 人 工 语言 ,每 种 程序 设计 语言 都 有 其 严格 的 词法 .语法 和 
语义 规定 ,对 字符 集 的 使 用 ,标识 符 的 命名 规则 ,程序 结构 的 组 织 . 语 句 次 序 的 排列 .程序 格 
式 的 书写 和 数据 类 型 的 定义 等 都 有 明确 的 要 求 。 不 同 的 程序 设计 语言 其 规定 和 要 求 有 所 不 
同 ,任何 不 符合 语言 规定 和 要 求 的 程序 均 为 不 合法 程序 (错误 程序 ) 。 理 解 和 掌握 有 关 程 序 
设计 语言 的 基础 知识 和 基本 概念 ,是 学 习 程 序 设 计 方法 的 重要 环节 和 基本 前 提 。 

FORTRAN95 有 明确 的 字符 集 使 用 规定 .严格 的 名 称 描述 语法 .清晰 的 程序 组 织 结构 、 
严谨 的 语句 排列 次 序 .灵活 的 程序 书 与 格式 和 丰富 的 数据 类 型 定义 。 必 须 首 先 学 习 、 理 解 和 
掌握 FORTRAN95 的 这 些 基础 知识 和 基本 概念 ,为 进一步 学 习 FORTRAN95 程序 设计 真 

数据 是 程序 的 灵魂 ,离开 了 数据 ,程序 就 失去 了 存在 的 意义 。 程 序 设 计 语 言 都 提供 了 丰 
语 的 数据 类 型 ,供用 户 选择 使 用 。 灵 活 应 用 语言 提供 的 数据 类 型 来 求解 各 类 实际 问题 ,是 学 
习 和 掌握 程序 设计 的 基本 要 求 。 为 了 提高 用 户 程序 设计 效率 和 质量 ,每 种 程序 设计 语言 还 
提供 了 丰富 的 标准 函数 ,如 三 角 函 数 、 双 曲 函 数 、 和 矩阵 运算 等 ,用 户 在 程序 中 可 和 直接 使 用 , 完 
成 许多 复杂 的 计算 任务 。FORIRAN95 预定 义 了 6 种 内 部 数据 类 型 : 整 型 (INTEGER)、 
KA ( REAL)、 双 精度 型 (DOUBLE PRECISION)、 复 型 (COMPLEX)、 字 符 型 
(CHARACTER) .逻辑 型 (LOGICAL) ,每 一 种 内 部 数据 类 型 又 具有 参数 化 特性 (KIND Ж 
数 , 即 类 别 类 型 参数 )。FORTRAN95 为 用 户 提 供 了 极其 丰富 的 标准 函数 , 达 130 个 以 上 ， 
远 多 于 其 他 程序 设计 语言 。KIND 参数 的 引入 和 标准 函数 的 扩充 大 大 增强 了 
FORTRAN95 的 效 据 表示 和 处 理 能 力 。 

通过 设计 和 编写 一 些 简 单 的 顺序 程序 ,学 习 和 掌握 FORTRAN95 的 内 部 数据 类 型 、 
KIND 值 参 数 ,标准 函数 等 概念 ,为 今后 学 习 和 向 握 复杂 程序 设计 方法 葛 定 基础 。 


一 、 实 验 目 的 


1. 掌握 FORTRANO5 的 基本 知识 。 

(D Tff FORTRAN95 字符 集 ; 

(2) 掌握 FEORTRAN95 标识 符 的 命名 规则 和 使 用 要 求 ; 
(3) 了 解 内 部 数据 类 型 及 其 KIND 值 参 数 概 念 ; 

(4) 掌握 常量 和 变量 的 概念 及 其 语法 规则 和 变量 定义 方法 ; 
(5) 擎 握 符 号 向 量 及 其 定义 方法 (PARAMETER 语句 ); 
(6) 掌握 算术 表达 式 和 字符 表达 式 及 其 求 值 规则 ; 

(7) Зе PRHE K САУНЕ H ARI 


66 。 LoRTRAN9S 程序 设计 实验 指导 与 测试 
‚ 掌握 FORTRAN95 程序 组 织 结构 和 语句 排列 顺序 的 基本 原则 
‚ 掌握 FORTRAN95 的 自由 书写 格式 。 

. 掌握 顺序 结构 的 概念 和 顺序 结构 程序 设计 方法 。 

. 掌握 赋值 语句 的 语法 规则 和 基本 功能 。 

. 进一步 熟悉 软件 开发 环境 和 上 机 操作 步 又 。 


【实验 内 容 2.1] СКА Е.Е 代表 华氏 温度 ,编程 完成 摄氏 度 到 华氏 度 的 转 
Fa ,并 计算 输出 摄氏 0 度 、100 度 , 一 40 度 对 应 的 华氏 度 。 转 换 公 式 为 . 
Е = = +32 


【实验 内 容 2.2】 任意 输入 一 个 两 位 数 , 求 其 个 位 数字 和 十 位 数字 的 和 ; 将 个 位 数字 和 
十 位 数字 互 换 , 求 得 到 的 新 的 两 位 数 。 

【实验 内 容 23] 输入 My 的 值 ,计算 -人 二 

【实验 内 容 2.4] 已 知 球 的 半径 为 4, 求 其 表面 积 和 体积 。 

【实验 内 容 2.5] 已 知 y=e2 十 nlsinz 一 sinz2|, 其 中 工 = 
的 值 


=. жж 


实验 课时 要 求 2 学 时 。 

1. 分 析 每 个 实验 内 容 , 从 中 找到 已 知 条 件 和 要 实现 的 求解 结果 ,给 出 解 题 思路 。 

2. 了 解 算法 设计 的 基本 方法 ,绘制 每 一 个 实验 内 容 的 流程 图 。 

3. 了 解 程序 编写 的 基本 方法 ,编写 每 一 个 实验 内 容 的 程序 代码 。 

4. 创建 用 户 自 定义 文件 夹 shiyan02 ,创建 在 D 盘 上 。 

5. 在 文件 夹 shiyan02 内 分 别 创建 每 一 个 实验 内 容 的 控制 台 examl, exam2, exam3, 
exam4 、 examo 。 

6. 在 各 自 对 应 的 控制 台 内 创建 源 程序 文件 cxl. f90 至 cx5. f90 ,输入 对 应 的 程序 代码 。 

7. 分 别 生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 

8. 完成 上 机 实验 报告 。 


四 、 实 验 步 又 


~] Cc» «л 


ал, 


l+tan 52°15 ,3K у 


1. 完成 前 期 准备 工作 ,绘制 流程 图 ,编写 程序 。 

2. Æ D AJE xE shiyan02, 

3. 打开 VS2010 集成 开发 环境 。 

4. 分 别 为 每 一 个 实验 内 容 创建 各 目的 控制 台 exam] 至 exam5, 

5. 分 别 创 建 源 程序 文件 cxl. f90 至 cx5. f90, 输 入 对 应 的 程序 代码 。 
6. 各 自生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结 
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7. 完成 上 机 实验 报告 。 
五 、 实 验 小 结 


本 实验 是 学 习 .理解 和 掌握 FORTRAN95 程序 设计 基本 知识 和 基本 语句 的 一 次 实验 ， 
实验 效果 对 掌握 FORTRAN95 程序 设计 方法 和 技术 至 关 重 要 。 

通过 本 实验 ,要 对 FORTRAN95 语言 的 基本 概念 和 基础 知识 有 一 个 完整 和 准确 的 理 
解 , 初 步 掌握 编写 合法 FORTRAN95 程序 的 基本 原则 和 基本 要 求 ,是 学 习 、 理 解 和 掌握 内 部 
数据 类 型 常量、 变量 、 表 达 式 赋值 语句 、 参 数 语 句 、 标 准 函 数 、 表 控 输 入 输出 概念 ,以 及 简单 
顺序 程序 设计 方法 的 一 次 实验 ,实验 效果 对 今后 掌握 复杂 程序 设计 方法 至 关 重 要 。 通 过 本 
实验 ,学 生 能 够 掌握 常数 的 表示 和 书写 、 变 量 的 说 明和 使 用 、KIND 值 的 意义 和 作用 、 表 达 式 
的 功能 和 作用 、 函 数 的 功能 和 应 用 、 表 控 输 入 输出 语句 的 功能 和 应 用 ,初步 掌握 求解 简单 计 
算 型 问题 和 编写 简单 顺序 程序 的 基本 方法 。 通 过 本 实验 ， 5 5 Ашы" 
理解 ,初步 掌握 进行 问题 分 析 、 算 法 设计 ‚И РЕ R 22 ПИ Н) ЖЕ K 7 DR. PX E 28 Ы EE F Н) 38 ЖКП 
提 ,问题 分 析 清 楚 了 ,求解 算法 设计 好 了 ,流程 图 绘制 完成 了 ， 程序 编写 就 可 轻松 完成 。 
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利用 课余 时 间 完 成 以 下 练习 ,以 巩固 所 学 知识 。 

【练习 2.1] 某 地 2017 年 人 均 收入 为 15 000 元 , 求 : 

(1) WRA 2030 年 人 均 收入 翻 两 番 , 则 年 平均 增长 速度 为 多 少 ? 

(2) 如 果 年 平均 增长 速度 为 5%, 几 年 后 人 均 收 入 可 以 翻 两 番 ? 

【练习 2.2] 有 一 个 底面 呈 等 腰 梯 形 的 鱼 塘 , 上 底 边 长 为 180m, 下 底 边 长 为 210m ,高 
为 40m, 在 鱼 塘 周 围 建 起 了 围墙 ,如 实验 图 2.1 所 示 。 每 平方 米 鱼 塘 产 鱼 4 公斤 ,每 公斤 鱼 
的 价格 为 15 元 。 编 写 程序 ,计算 该 鱼 塘 的 产量 和 产值 ,以 及 围墙 的 长 度 。 要 求 梯 形 的 上 底 
边 长 .下 底 边 长 和 高 的 值 从 键盘 输入 。 


实验 图 2.1 鱼 塘 底面 示意 图 


作业 要 求 ， 

D 创建 用 户 自 定义 文件 夹 zuoye02 ,创建 在 D 4. 
在 文件 夹 zuoye02 内 分 别 创 建 控制 台 xt01 和 xt02。 

© 分 别 在 控制 台 内 创建 对 应 源 程序 文件 сх1. 190 和 cx2. {90, 输 入 编辑 源 程序 。 


由 生成 xt01. exe 和 xt02. exe, 分 别 执行 程序 ,得 到 运行 结果 ， 


选择 结构 程序 设计 


前 面 学 习 了 最 简单 的 顺序 结构 程序 设计 ,顺序 结构 由 上 而 下 依次 执行 每 一 条 语句 ,只 能 
解决 简单 的 问题 。 在 实际 问题 中 常常 要 根据 不 同 的 条 件 执行 不 同 的 语句 ,具有 复杂 的 逻辑 
关系 , 仅 使 用 顺序 结构 难以 编写 程序 ,这 就 需要 引入 选择 结构 (分 支 结构 ) 。 选 择 结构 是 体现 
程序 智能 化 的 重要 程序 结构 。 

FORTRAN95 提供 了 丰富 的 用 于 实现 选择 结构 的 语句 ,有 逻辑 IF 语句 、 块 IF 结构 、 多 
分 支 块 IF 结构 和 块 CASE 结构 。 块 CASE 结构 与 多 分 支 块 IF 结构 在 功能 上 非常 相似 ,但 
在 某 些 情况 下 ,使 用 CASE 结构 比 使 用 多 分 支 块 IF 结构 更 简洁 和 高 效 。 

本 实验 是 学 习 和 掌握 关系 表达 式 .逻辑 表达 式 .选择 结构 语句 选择 结构 程序 设计 方法 
的 一 次 实验 练习 。 通 过 本 次 实验 ,能 设计 和 编写 简单 的 具有 选择 结构 的 程序 ,为 学 习 和 掌握 
更 复杂 的 程序 结构 和 程序 设计 方法 葛 定 基础 ， 


一 、 实 验 目 的 
І. 熟悉 关系 表达 式 和 逻辑 表达 式 。 
2. 掌握 逻辑 IF 语句 、 块 IF 结构 、 多 分 支 块 IF 结构 、 块 CASE 结构 的 语法 规则 和 使 用 
3. 掌握 航 套 选择 结构 的 使 用 要 求 和 实现 方法 ， 
4. 掌握 选择 结构 的 概念 和 选择 结构 的 程序 设计 方法 。 
二 、 实 验 内 容 


【实验 内 容 3.1] 已 知 如 下 公式 ,从 键盘 输入 工 , 求 y 的 值 。 
cos(r +1) —15< r«0 
na tD пж а IU 


32 ү, | 
W 15 < z < 20 
е 其 他 


【实验 内 容 3.2] 判断 一 个 两 位 整数 M 是 否 为 守 形 数 。 所 谓 守 形 数 是 指 该 数 本 刁 等 
于 自身 平方 的 低位 数 , 如 25 是 守 形 数 , 因 为 25: —625. m 625 的 低 两 位 为 25。M 由 键盘 
输入 。 

【实验 内 容 3.3】 输入 三 角形 三 条 边 长 A、.B、C, 先 判断 是 否 构 成 三 角形 ,车 能 构成 三 角 
形 , 则 计算 三 角形 三 个 角 w、8.y( 提 示 : 使 用 FORTRAN95 # [it B9 jc x 9E Ey WE BR 0 
ACOS(z) ,结果 单位 为 弧度 。 使 用 标准 函数 ACOSD(Cz) ,结果 单位 为 度 ) 。 

【实验 内 容 3.4】 茶 运 输 公司 在 计算 运费 时 ,按照 运输 距离 S 对 运费 打 一 定 的 折扣 DD， 
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其 标准 如 下 : S<250km Bf. D=0; 250кт<<5<500Кт BJ, D—2. 5%; 500km<S<1000km 
时 ,D=4.5%; 1000km=< S—2000km 时 ,D=7.5%; 2000kmzz S—2500km Rf.D =0.0%; 
2500kmzzS«3000km At, D=12. 0%; S 宇 3000km Hf .D— 15.0925, 

编写 程序 ,输入 基本 运费 Price, 货 物 重 量 Weight 和 距离 S, 计 算 总 运费 Freight, HP 
Freight= Price x Weight 5 х (1 — D), 

【实验 内 容 3.5] 给 一 个 不 多 于 5 位 的 正 整数 ,要 求 , 求 出 它 是 几 位 数 ; ORFI 
印 出 每 位 数字 。 


实验 课时 要 求 2 学 时 。 

分 析 每 一 个 实验 内 容 , 从 中 找到 已 知 条 件 和 要 实现 的 求解 结果 ,给 出 解 题 思路 。 

. 了 解 算法 设计 的 基本 方法 ,绘制 每 一 个 实验 内 容 的 流程 图 。 

了 解 程序 编写 的 基本 方法 ,编写 每 一 个 实验 内 容 的 程序 代码 。 

创建 用 户 自 定义 文件 夹 shiyan03 ,创建 在 D 盘 上 。 

在 文件 夹 shiyan03 内 分 别 创建 每 一 个 实验 内 容 的 控制 台 exam] 至 exam5。 

. 在 各 上 有 目 对 应 的 控制 台 内 创建 源 程序 文件 exl. f90 至 cx5. {90, 输 入 对 应 的 程序 代码 。 
.分别 生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 

.完成 上 机 实验 报告 。 


四 、 实 验 步骤 


. 完成 前 期 准备 工作 ,绘制 流程 图 ,编写 程序 。 

. ЕЮ Ж Gu УЖ{{ shiyan03., 

. 打开 VS2010 集成 开发 环境 。 

. 分 别 为 每 一 个 实验 内 容 创建 各 目的 控制 台 examl 至 exam5, 

. 分 别 创建 源 程 序 文件 exl. f90 至 cx5. f90 ,输入 对 应 的 程序 代码 。 
各 日 生成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 


五 、 实 验 小 结 


通过 本 实验 ,要 对 选择 结构 概念 和 知识 有 一 个 完整 和 准确 的 理解 ,掌握 关系 运算 符 、 好 
印 运 算 符 、 关 系 表 达 式 和 罗 辑 表达 式 等 基本 知识 ,熟练 掌握 编写 选择 结构 FORTRAN95 f 
序 的 基本 原则 和 基本 要 求 。 通 过 本 实验 ,应 了 解 对 同一 问题 可 编写 不 同 程序 ,能 灵活 应 用 过 
i IF iE] Be IF 结构 、 多 分 支 块 IF 结构 、 抉 CASE 结构 。 选 择 结构 程序 设计 是 程序 设计 的 
基础 之 一 ,必须 熟练 掌握 。 


和 六、 课外 练习 
利用 课余 时 间 完 成 以 下 练习 ,以 巩固 所 学 知识 。 


【练习 3.1] 计算 税收 。 如 企业 产值 小 于 等 于 1000 万 元 ;税率 为 3%; 企业 产值 大 于 
1000 万 元 小 于 等 于 2000 万 元 的 部 分 ,税率 为 5%; 企业 产值 大 于 2000 万 元 .小 于 等 于 5000 


Со з C» Ul 


= cC» л e C2 [МЮ н 
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万 元 的 部 分 ,税率 为 7%; 企业 产值 大 于 5000 万 元 、 小 于 等 于 1 亿 元 的 部 分 ,税率 为 10%; 
企业 产值 大 于 1 亿 元 、 小 于 等 于 5 亿 元 的 部 分 ,税率 为 14%; 企业 产值 大 于 5 亿 元 的 部 分 ， 
陪 率 为 20%。 输 入 某 企业 年 产值 ,计算 当年 应 交 税 什 并 输出 。 分 别 用 块 IF 结构 和 块 CASP 
结构 来 设计 程序 ， 

创建 用 户 日 定义 文件 夹 zuoye03 ,创建 在 D 盘 。 

在 文件 夹 zuoye03 内 分 别 创建 控制 台 xt01 和 xt02。 

分 别 在 控制 台 内 创建 对 应 源 程 序 文件 сх1. {90 至 cx2. 190, 输 入 编辑 源 程序 。 

生成 xt01. exe 和 xt02. exe, 分 别 执行 程序 ,得 到 运行 结果 。 


循环 结构 程序 设计 


前 面 已 学 习 了 顺序 结构 和 选择 结构 两 种 程序 结构 ,也 学 习 了 顺序 结构 程序 设计 和 选择 
结构 程序 设计 两 种 程序 设计 方法 。 但 是 在 实际 问题 中 还 经 常 遇 到 具有 重复 计算 或 重复 处 理 
的 问题 , 须 引 入 第 三 种 程序 结构 一 一 循环 结构 ,来 解决 此 类 问题 。 

FORTRAN95 提供 了 丰富 的 ,用 于 实现 循环 结构 的 语句 ,有 DO 语句 .DO WHILE if 
名 等。 循环 结构 有 “计数 型 “* 当 型 * 和 “直到 型 ”三 种 ,需要 大 家 掌握 三 种 循环 结构 的 特征 以 
及 实现 循环 结构 的 各 种 循环 语句 ,还 需要 擎 握 三 种 循环 结构 之 间 的 等 价 转换 。 

循环 结构 允许 诅 套 , 衣 套 的 循环 结构 称 为 多 重 循环 , 即 一 个 循环 结构 的 循环 体 中 包含 夯 
一 个 循环 结构 ,根据 实际 需要 可 使 用 多 层 诅 套 。 使 用 循环 控制 语句 CYCLE 语句 和 EXIT 
语句 ,可 在 循环 体 执行 过 程 中 提前 终止 本 次 循环 或 者 整个 循环 。 这 两 条 语句 的 使 用 虽然 不 
符合 结构 化 程序 设计 思想 ,但 如 使 用 得 当 , 可 使 程序 简洁 、 短 小 和 高 效 。 

本 实验 是 学 习 和 掌握 关系 表达 式 .逻辑 表达 式 、 循 环 结构 .循环 语句 、 循 环 控 制 语句 、 循 
环 结构 程序 设计 方法 的 一 次 系统 实验 。 通 过 本 实验 的 练习 ,首先 能 够 设计 和 编 与 简单 的 .有 具 
有 循环 结构 的 程序 ,进而 能 够 设计 和 编 与 比较 复杂 的 循环 结构 程序 。 


一 、 实 验 目的 


. 掌握 循环 控制 条 件 的 描述 。 
. 掌握 三 种 循环 结构 的 特征 及 相互 之 间 的 等 价 转换 。 
. 掌握 DO DO WHILE 语句 的 语法 规则 和 使 用 要 求 。 
. 掌握 循环 结构 的 概念 和 循环 结构 程序 设计 方法 。 
5. 掌握 循环 控制 语句 EXIT 语句 和 CYCLE 语句 的 基本 功能 和 使 用 规则 ,以 及 两 者 
区 别 。 
6. 掌握 循环 通 套 结构 的 概念 和 应 用 。 
7. 掌握 顺序 结构 .选择 结构 和 循环 结构 的 相互 散 套 和 综合 应 用 。 
8. 和 擎 握 设计 和 编写 较 复 杂 程 序 的 基本 技能 。 


二 、 实 验 内 容 
【实验 内 容 4.1] 利用 下 式 计算 x 的 值 , 并 输出 。 


T аа асла kt O 1 ` 
"m 3*5 Т T in —3 4n — ] 
【实验 内 容 4.2] WA 2.26 cosx 的 近似 值 。 
2 A .6 
cosr = ] 一 T 十 于 一 二 十 …( 直 到 最 后 一 项 的 绝对 值 小 于 10 为 止 ) 


(л = 1000) 
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【实验 内 容 4.3] 求 满足 不 等 式 1 十 2 十 3 十 … 十 710000 的 最 小 项 数 n. 
【实验 内 容 4.4] 计算 F;RH S. 
Е. — sinC X; + Y;) 
i ] + X;Y; 
iP 29227 
> —1.255,7,9 
Yo L$53:,39: 48 
【实验 内 容 4.5]. 求 L12,999j 区 间 内 同时 满足 下 列 条 件 的 数 : 
D 该 数 各 位 数字 之 和 为 琳 数 ; 
【实验 内 容 4.6】 求 满足 如 下 条 件 的 三 位 数 , 它 除 以 9 的 商 等 于 它 各 位 数字 的 平方 和 。 
例如 224, 它 除 以 9 的 商 为 24, 而 2? 4-2? 23-4 —24, 
【实验 内 容 4.7】 求 12,1000j] 区 间 内 的 所 有 人 完 数 。 完 数 是 指 它 所 有 的 因子 (不 包括 该 
数 本 身 但 包括 1) 之 和 等 于 它 本 身 的 数 。 例 如 6 是 完 数 ,因为 6 二 1 十 2 十 3。 
【实验 内 容 4.8】 A JI f Z #lSF T B.B 的 因子 之 和 等 于 A, 日 AZB.WJER A.B SR 
密 对 数 。 求 [2,1000j] 中 的 亲密 对 数 ，。 
【实验 内 容 4.9】 如 果 某 数 的 平方 其 低位 与 该 数 相 同 , 则 称 该 数 为 守 形 数 。 例 如 25 = 
625 ,而 625 的 低位 25 与 原 数 相同 , 则 称 25 为 守 形 数 。 求 L2,1000」 区 间 内 的 守 形 数 。 
【实验 内 容 4.10] R Fibonacci 数列 相关 的 下 列 数 ,; (1) 大 于 4000 的 最 小 项 ; (2)5000 
之 内 的 项 数 。 


= ` 实验 要 求 


实验 课时 要 求 4 学 时 。 
1. 分 析 每 一 个 实验 内 容 , 从 中 找到 已 知 条 件 和 要 实现 的 求解 结果 ,给 出 解 题 思 路 。 
2. 了 解 算 法 设计 的 基本 方法 ,绘制 每 一 个 实验 内 容 的 流程 图 。 
3. 了 解 程序 编写 的 基本 方法 ,编写 每 一 个 实验 内 容 的 程序 代码 。 
4. 创建 用 户 自 定义 文件 夹 shiyan04, 创 建 在 D S E. 
5. 在 文件 来 shiyan04 内 分 别 创 建 每 一 个 实验 内 容 的 控制 台 examl 至 exam10, 
6. 在 各 自 对 应 的 控制 台 内 创建 源 程序 文件 exl. f90 至 cx10. f90, 输 入 对 应 的 程序 
代码 。 
7. 分 别 生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结 采 。 
. 完成 前 期 准备 工作 ,绘制 流程 图 ,编写 程序 。 
. 在 DD Ж Ж ХЕ shiyan04。 
. 打开 VS2010 集成 开发 环境 。 
. 分 别 为 每 一 个 实验 内 容 创建 各 目的 控制 台 examl 至 examl0, 


实验 4 ”循环 结构 程序 设计 及 
5. 分 别 创建 源 程序 文件 exl. f90 至 cx10. f90 ,输入 对 应 的 程序 代码 。 
6. 各 自生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 


五 、 实 验 小 结 


本 实验 是 学 习 、 理 解 和 车 握 FORTRAN95 循环 结构 和 循环 结构 程序 设计 的 一 次 实验 ， 
实验 效果 对 擎 握 FORTRAN95 程序 设计 方法 和 技术 至 关 重 要 。 

通过 本 实验 ,对 FORTRAN95 语言 循环 结构 的 基础 知识 应 有 一 个 完整 和 准确 的 理解 ， 
掌握 编写 含有 循环 结构 的 FORTRAN95 程序 的 基本 原则 和 基本 要 求 ,熟练 掌握 循环 结构 的 
分 类 及 它们 之 间 的 关系 ,和 擎 握 DO 循环 结构 的 语法 规则 和 使 用 要 求 , 掌 握 DO WHILE 语句 
的 语法 规则 和 使 用 要 求 , 掌 握 循环 控制 语句 ,了 解 逻辑 IF 语句 和 GOTO 语句 的 组 合 。 对 循 
环 结构 瞬 套 概念 有 一 个 完整 和 准确 理解 ,掌握 循环 结构 的 综合 应 用 和 编写 含有 多 重 循环 结 
构 程 序 的 基本 技能 , 营 握 循环 结构 的 强制 性 终止 语句 ,和 苔 握 循环 和 分 文 结 构 的 衣 套 应 用 。 

通过 本 实验 ,要 求 对 顺序 结构 选择 结构 和 循环 结构 的 综合 运用 熟练 沿 握 ,能 够 设计 和 
编写 比较 复杂 的 程序 。 


六 、 课 外 练习 
利用 课余 时 间 完 成 以 下 练习 ,以 巩固 所 学 知识 。 


"位 数 

【练习 4.1】 计算 4 十 aa 十 aaa 十 a…a 的 值 ,其 中 an 的 值 由 键盘 输入 。 例 如 ,输入 a 为 
3.n 为 5 时 ,计算 3 十 33 十 333 十 3333 十 33333 的 值 。 

【练习 4.2】 编程 输出 所 有 的 “玫瑰 花 数 ”。 如 果 一 个 四 位 数 的 每 一 位 数字 的 4 次 方 之 
和 等 于 它 自身 ,那么 称 这 个 四 位 数 为 玫瑰 花 数 ， 


【练习 4.3】 计算 1 一 亏 十 二 一 … 十 (一 1)"" 一 ,其 中 尺 为 满足 不 等 式 1-2 3 eet 


A 的 最 小 项 n。A 从 键盘 输入 ,如 输入 10 000。 提 示 : 求解 本 题 , 先 通过 “条 件 型 ( 当 型 和 直 
到 型 ) ”循环 结构 求 最 小 项 数 nn 为 整 型 数 ,然后 再 通过 “计数 型 "循环 计算 级 数 之 和 。 计 算 
级 数 之 和 时 要 注意 每 项 的 正 负 变化 。 

【练习 4.4】 公元 五 世纪 末 ,我 国 古代 数学 家 张 丘 建 在 (4 算 经 》 中 提出 三 百 钱 买 百 鸡 问 
题 ”:“ 鸡 翁 一 ,值钱 五 ; 鸡 母 一 ,值钱 三 ; 鸡 积 三 ,值钱 一 。 百 钱 买 百 鸡 , 问 公 鸡 、. 母 鸡 、 小 鸡 
各 几何 ?意思 是 : 公鸡 每 只 5 元 , 母 鸡 每 只 3 元 ,小 鸡 一 元 三 只 。 用 100 元 买 100 只 鸡 , 公 
鸡 , 母 鸡 、 小 鸡 各 买 多 少 只 ?编写 程序 求解 该 问题 。 

提示 : 求解 本 题 有 两 个 限定 条 件 : 其 一 是 所 有 的 鸡 共 计 100 Н; 其 二 是 所 有 头 鸡 的 钱 
共计 100 元 。 根 据 这 两 个 条 件 可 列 出 下 面 两 个 方程 式 , 设 公鸡 、 母 鸡 和 小 鸡 数 分 别 为 x 、y、 
=. Д. 


УЕ = 100 
"i 3y- = 100 


这 是 一 个 三 元 一 次 方程 组 ,但 是 其 限定 条 件 也 就 是 方程 式 只 有 两 个 ,这 就 意味 着 它 是 一 
个 多 解 题 。 求 解 该 问题 有 多 种 解法 ,利用 穷 举 法 遍历 x+、y、z 的 所 有 组 合 ,用 三 重 循环 或 两 
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重 循环 设计 算法 。 
创建 用 户 自 定义 文件 夹 zuoye04 ,创建 在 D X. 
在 文件 夹 zuoye04 内 分 别 创建 各 自 的 控制 台 xt01 至 xt04。 
分 别 在 控制 台 内 创建 对 应 源 程 序 文件 exl. £90 至 cx4. {90, 输 入 ,编辑 源 程序 。 
生成 可 执行 文件 ,分 别 执行 程序 ,得 到 运行 结果 。 


数据 有 格式 输入 输出 


数据 是 程序 人 处理 的 主要 对 象 。 一 般 情 况 下 ,在 程序 中 要 完成 大 量 的 数据 输入 输出 任务 ， 
输入 输出 数据 是 否 简洁 .直观 .醒目 .规范 ,是 评价 程序 质量 的 一 项 重要 指标 。 如 何 组 织 数 据 
的 输入 输出 是 程序 设计 时 要 认真 考虑 的 一 项 重要 工作 。FORTRAN95 提供 了 强大 的 数据 
输入 输出 功能 。 学 习 和 掌握 数据 有 格式 输入 输出 功能 ,有 助 于 设计 和 编写 高 质量 程序 。 


一 、 实 验 目 的 


: 了 解数 据 有 格式 输入 输出 的 主要 作用 、 基 本 方法 和 使 用 规则 。 

. 掌握 数据 有 格式 输入 输出 语句 (READ、PRINT、WRITE) 的 基本 功能 和 语法 规则 。 
.掌握 格式 说 明 语 句 (FORMAT) 的 基本 功能 和 语法 规则 。 

营 握 IF、E\A、LXV\ 等 右 干 贡 用 格式 编辑 符 的 格式 要 求 和 基本 功能 。 

‚ 等 握 效 据 有 格式 输入 输出 的 数据 组 织 和 格式 说 明 方 法 。 

3E pe HH т DO 循环 对 输入 输出 进行 控制 的 方法 。 


二 、 实 验 内 容 
【实验 内 容 5.1】 CA M=2000 ,为 了 在 屏幕 上 输出 “2000x* x x x x ”将 下 列 程序 补 
全 并 上 机 运行 。 


M= 2000 

PRINT 10,M 

10 FORMAT( ) 
END 


【实验 内 容 5.2] 有 输入 语句 “READ 10.1.A.J.B”. Anf; A B ELO. 


> Co b — 


с “H 


I= 63,А = 76. 5,J = 122, B = 156. 783 


那么 用 下 面 的 FORMATI 语句 应 如 何 输 入 数据 ? 上 机 运行 ,并 显示 输入 方式 和 输入 
结果 。 

(1) 10 FORMAT(I4,F6.2,15,F8.2) 

(2) 10 FORMAT(I4,2X,F6.2,2X,15,2X,F8. 2) 

(3) 10 FORMAT(1X.2(14,2X,2X,F10. 25) 

(4) 10 FORMAT(14,F6. 2/I5, F8. 2) 


实验 内 容 5.3】 Rtl t | 
【实验 内 容 5.3】 Жуз TU 


2X3X4 [00x 101x 102 AR ft tH Eri КИ 08 fu 
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【实验 内 容 5.4】 编写 程序 ,打印 出 以 下 由 x 构成 的 等 


x` 


x K< 
XXX 
жк 
XXX XXXXX 
【实验 内 容 5.5] 编写 程序 ,打印 出 以 下 图 案 。 
] l 
121 121 
12321 12321 
1234321 1234321 
123454321 123454321 


实验 课时 要 求 2 学 时 。 

. 分析 每 一 个 实验 内 容 , 从 中 找到 已 知 条 件 和 要 实现 的 求解 结果 ,给 出 解 题 思路 。 

. 了解 算 法 设计 的 基本 方法 ,绘制 实验 内 容 5.4 和 实验 内 容 5.5 的 流程 图 。 

. 了解 程序 编写 的 基本 方法 ,编写 每 一 个 实验 内 容 的 程序 代码 。 

. 创建 用 户 自 定义 文件 夹 shiyan05 ,创建 在 D 盘 上 。 

. 在 文件 夹 shiyan05 内 分 别 创 建 每 一 个 实验 内 容 的 控制 台 exam] 至 ехато, 

. 在 各 自 对 应 的 控制 台 内 创建 源 程序 文件 exl. 90 至 cx5. {90, 输 入 对 应 的 程序 代码 。 
. 分 别 生成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 


. 完成 前 期 准备 工作 ,绘制 流程 图 ,编写 程序 。 

. 在 DD 盘 创 建文 件 夹 shiyan05, 

,打开 VS2010 集成 开发 环境 。 

. 分 别 为 每 一 个 实验 内 容 创建 各 目的 控制 台 exam] 至 exam5, 

. 分别 创 建 源 程序 文件 exl. 190 至 cx5. f90, 输 入 对 应 的 程序 代码 。 
各 自生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结 

. 完成 上 机 实验 报告 。 


五 、 实 验 小 结 


本 实验 是 学 习 、 理 解 和 掌握 FORTRAN 数据 有 格式 输入 输出 的 概念 、 格 式 说 明 方 法 和 
格式 编辑 符 功 能 ,以 及 隐 含 DO 循环 程序 设计 方法 的 一 次 实验 。 通 过 本 实验 ,学 生 能 够 掌握 
格式 说 明 方 法 .常用 格式 编辑 符 (X LF EAAS ВЕ. FORMAT 语句 和 有 格式 输入 输出 
语句 , 营 握 输入 输出 数据 格式 的 组 织 和 设计 ,初步 掌握 编写 对 数据 输入 输出 格式 有 严格 要 求 
的 程序 的 基本 方法 。 


> 02 DB m 


oo N c c 


=> 02 D ҥе 


~] Cc» CX 


实验 5 数据 有 格式 输入 输出 ` 


六 、 课 外 练习 


利用 课余 时 间 完 成 以 下 练习 ,以 巩固 所 学 知识 。 
【练习 5.1] 输出 以 下 图 案 : 


【练习 5.2】 输出 由 4 个 字符 A、B、C.D 组 成 的 以 下 图 形 ， 
A 


D D 


C 
C 
> пс Q O m 
C 
C 


作业 要 求 : 
D 创建 用 户 自 定义 文件 夹 zuoye05, 创 建 在 D fit. 


在 文件 夹 zuoye05 内 分 别 创建 各 自 的 控制 台 xt01 和 xt02。 

分 别 在 控制 台 内 创建 对 应 源 程序 文件 cx1. f90 至 cx2.f90, 输 入 、 编 辑 源 程序 。 
由 生成 可 执行 文件 ,分 别 执行 程序 ,得 到 运行 结果 。 

@ 完成 上 机 实验 报告 。 


SX £H 


数组 是 FORTRAN 最 重要 的 结构 数据 类 型 之 一 。 许 多 实际 问题 往往 涉及 大 量 的 数据 ， 
数组 是 存储 和 处 理 大 批量 数据 的 有 效 工具 ,有 些 问 题 如 有 果 不 用 数组 求解 将 难以 解决 。 

数组 是 类 型 相同 且 有 序 的 一 组 数据 ,涉及 大 量 同 类 型 数据 处 理 问 题 时 均 可 考虑 使 用 数 
组 。 本 实验 是 学 习 和 千 握 数组 说 明 .数组 元 素 引 用 ,数组 输入 输出 .数组 赋 初 值 等 的 一 次 系 
统 实 验 活 动 。 

FORTRAN95 不 但 提供 静态 数组 ,而 且 还 文 持 动 态 数组 ,为 求解 复杂 问题 和 提高 程序 
运行 效率 提供 了 方便 。FORTRAN95 提供 了 丰富 的 有关 数组 运算 的 标准 子 数 ,为 问题 求 
解 带 来 了 极 大 方便 ，。 

通过 本 实验 ,首先 要 求 读者 能 够 熟练 设计 和 编写 比较 简单 的 数组 应 用 程序 。 同 时 要 学 
2] #l É Je Ze 28 ZH. ,动态 数组 的 应 用 ,从 而 能 够 设计 和 编写 比较 复杂 的 数组 应 用 程序 。 


一 、 实 验 目 的 


. 理解 数组 概念 。 
. 掌握 数组 说 明 ,数组 元 素 引 用 、 数 组 输入 输出 和 数组 赋 初 值 的 使 用 规则 。 
. 掌握 数组 的 逻辑 结构 .存储 结构 及 其 相互 关系 。 

. 掌握 设计 和 编写 数组 应 用 程序 的 基本 方法 和 技能 。 

掌握 有 关 数 组 运算 的 常用 标准 函数 。 

掌握 动态 数组 的 概念 和 动态 数组 的 说 明 ,存储 分 配 的 使 用 规则 。 

. 掌握 设计 和 编写 多 维 数组 和 动态 数组 应 用 程序 的 能 力 。 


二 、 实 验 内 容 


【实验 内 容 6.1】 将 一 个 数组 的 数组 元 素 按 逆序 重新 存放 。 例 如 ,原来 存放 顺序 为 8， 
6,5,4,1, 要 求 改 为 : 1,4,5,6,8( 要 求 采用 三 种 方法 实现 )。 

【实验 内 容 6.2] 已 知 10 个 正 整 数 : 10,55,25,70,45,15,25,85,45,35 ,输入 一 个 待 删 
除 整数 ,在 10 个 整数 中 查找 , 硅 有 该 整数 , 则 将 其 删除 。 输 出 删除 前 后 的 这 组 整数 。 

【实验 内 容 6.3] 输入 6 个 整数 , 放 在 数组 中 ,数组 元 素 癌 左 循环 移 位 1、2、3、4、5、6 个 
位 置 ,从 第 1 个 元 素 移 动 到 最 后 一 个 元 素 , 结 宁 放 在 数组 中 ,输出 移 位 前 后 的 结 来 数据 。 例 
如 ,输入 1、2、3、4、5、6, 输 出 结果 如 下 所 示 。 


= со UO! 4 бм [S m 


实验 6 mi. 


] 2 ü 1 y 6 
А З 1 s 6 ] 
3 1 s 6 1 2 
1 9 6 1 2 З 
» 6 ] 2 d 1 
6 ] 2 Ө 1 9 
| 2 à d О 6 


【实验 内 容 6.4] 采用 变化 的 冒 泡 排序 法 将 N 个 数 按 从 大 到 小 的 顺序 排列 ; 对 N 个 
数 , 从 第 1 个 直到 第 N 个 ,逐次 比较 相 邻 的 两 个 数 , 大 者 放 前 面 ,小 者 放 后 面 ,这 样 得 到 的 第 
N 个 数 是 最 小 的 ; 然后 对 前 面 N 一 1 个 数 , 从 第 N 一 1 个 到 第 1 个 ,逐次 比较 相 邻 的 两 个 数 ， 
大 者 放 前 面 , 小 者 放 后 面 ,这 样 得 到 的 第 1 个 数 是 最 大 的 。 对 余下 的 N— 2 个 数 重复 上 述 过 
程 ,直至 按 从 大 到 小 的 顺序 排列 完毕 。 

【实验 内 容 6.5] 2—71 mX n [ЕЈ Е. 

【实验 内 容 6.6] 在 一 个 mXn 的 矩阵 A P oR МАБ K A h # Br E B 47.9] {Уу 
置 。 并 将 绝对 值 最 小 元 素 与 第 1 47.2 А СМА Кл УЯ m fT. 
第 п Ау Н л жй. D. 

20.0 — 21 83 13,3 
А = |31.2 63 35 — 12.5 
27 оё 45.8 34 
【实验 内 容 6.7】 按 以 下 格式 打印 出 杨辉 三 角形 的 前 N СМС 10). N 由 键盘 输入 。 


] 

| | 

I 2 1 

| 3 3 l 

l 4 6 4 |] 
1 5 10105 1] 


【实验 内 容 6.8] 已 知 一 个 m X n AB oR REGE ICE ЖЖП. i B 9 45-5 56 — G4 
调 ,输出 对 调 前 后 和 矩阵。 提示: 使 用 动态 数组 实现 。 


实验 课时 要 求 4 学 时 。 

分 析 每 一 个 实验 内 容 , 从 中 找到 已 知 条 件 和 要 实现 的 求解 结果 ,给 出 解 题 思路 。 

. 了 解 算 法 设计 的 基本 方法 ,绘制 流程 图 。 

. 了 解 程序 编写 的 基本 方法 ,编写 每 一 个 实验 内 容 的 程序 代码 。 

创建 用 户 自 定义 文件 夹 shiyan06 ,创建 在 D 盘 上 。 

在 文件 夹 shiyan06 内 分 别 创建 每 一 个 实验 内 容 的 控制 台 exam] 至 ехат8. 

. 在 各 自 对 应 的 控制 台 内 创建 源 程序 文件 exl. f90 至 cx8. {90, 输 入 对 应 的 程序 代码 。 
. 分 别 生成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 


чї со) л > Co го Lm 
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8. 完成 上 机 实验 报告 。 


. 完成 前 期 准备 工作 ,绘制 流程 图 ,编写 程序 。 

. Æ DUE shiyan06, 

. 打开 VS2010 集成 开发 环境 。 

. 分 别 为 每 一 个 实验 内 容 创 建 各 自 的 控制 台 exam] 至 exam8, 

. 分 别 创建 源 程序 文件 exl. 190 至 cx8. f90 ,输入 对 应 的 程序 代码 。 
各 自生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 


五 、 实 验 小 结 


本 实验 是 学 习 、 理 解 和 掌握 数组 概念 及 数组 应 用 的 实验 。 数 组 应 用 与 循环 结构 密切 相 
AX ,使 用 数组 的 重要 原因 之 一 就 是 便于 使 用 循环 结构 处 理 数 据 。 通 过 本 实验 ,要 求 对 数组 说 
写 数 组 应 用 程序 的 基本 技能 。 要 特别 注意 数组 下 标的 使 用 和 数组 元 素 的 引用 。 要 熟练 掌握 
Ні ОО 循环 实现 效 组 的 输入 输出 。 

通过 本 实验 ,应 对 一 维 数组 .二 维 数组 甚至 三 维 数组 及 其 综合 应 用 有 深入 了 解 ,能 够 设 
计 和 编写 较 复 杂 的 数组 应 用 程序 。 
六 、 课 外 练习 

利用 课余 时 间 完 成 以 下 练习 ,以 巩固 所 学 知识 。 

【练习 6.1] 从 键盘 输入 20 个 数 , 按 由 小 到 大 的 顺序 排列 后 输出 。 要 求 输入 时 每 行 输 
入 5 个 数 , 输 出 时 每 行 输出 10 个 数 。 

【练习 6.2】 把 一 个 数列 中 所 有 相同 的 数 删 到 只 剩 下 一 个 。 例 如 , 原 数 列 为 L1,2,1,2， 
3,3,4,3,5,4]. 59 tH 20391] 1,2,8,4,5 |, 

【练习 6.3] 求 一 个 关头 矩阵 四 周 元 素 的 和 (每 个 元 素 只 加 1 工 次 )。 例 如 ,以 下 和 矩阵 四 
Jš] ль ж BJ ЯП 24. 


=l] C» л 


【练习 6.41 从 一 个 正方 形 和 矩阵 中 找 出 两 个 对 角 线 上 最 小 元 素 的 所 在 位 置 。 
作业 要 求 : 

D 创建 用 户 自 定 义 文件 来 zuoye06 ,创建 在 了 D 盘 ，。 

在 文件 夹 zuoye06 内 分 别 创 建 各 自 的 控制 台 xt01 至 xt04。 

分 别 在 控制 台 内 创建 对 应 源 程 序 文件 cx1. f90 至 cx4. {90, 输 入 .编辑 源 程序 。 
由 生成 可 执行 文件 ,分 别 执行 程序 ,得 到 运行 结果 。 


Ti EX YES 


K E FORTRAN W Pi Fe Ë BJ x& Ж ТЕГ «b E PRICE) PR ЖЕП Р! B XE X. ER 
ZUCT RH SS. ВРИЕ РА СТЕ 2 SINE COS .指数 ЕХР. 50 SQRT 等 ) 读 者 已 
Zt ГЕ ЯП. С Y ñW 126 de WR) РЁ НЧ ЖЕ ДХ ALACRI (ES Н ЖОШ. TF BJ BR EC EE Jy H 
于 数值 计算 ,对 于 比较 复杂 或 频繁 出 现 的 表达 式 计 算 ,适合 使 用 语句 函数 求解 ,编写 的 程序 
比较 简洁 和 清晰 。 

子 程序 是 FORTRAN 的 重要 功能 之 一 ,FORTRAN 允许 用 户 自己 定义 子 程序 ,允许 用 
户 通 过 子 程序 设计 和 编写 程序 。 在 设计 和 编写 一 个 复杂 的 程序 时 ,通常 需要 使 用 科学 的 程 
序 设计 方法 ,如 结构 化 程序 设计 方法 ,模块 化 程序 设计 方法 、 面 呵 对 象 程 序 设计 方法 等 , 子 程 
序 功 能 完全 文 持 结构 化 和 模块 化 程序 设计 方法 ,结构 化 和 模块 化 程序 设计 方法 可 通过 子 程 
序 得 到 应 用 。 使 用 子 程序 可 提高 程序 的 可 读 性 .可 理解 性 .可 维护 性 和 可 修改 性 ,是 编写 高 

子 程序 分 为 内 部 子 程序 和 外 部 子 程序 。 内 部 子 程序 是 包含 在 程序 单元 CONTAINS 2 
构 中 的 子 程序 ,只 有 和 定义 它们 的 程序 单元 才能 调用 和 执行 它们 。 外 部 子 程序 是 出 现在 主 府 
程序 单元 之 外 的 子 程序 ,外 部 子 程序 和 主 程序 可 单独 保存 在 不 同 的 源 程序 文件 中 ,可 分 别 独 
立 编译 。 外 部 子 程序 可 用 于 大 型 .复杂 的 程序 设计 ,可 实现 多 人 并 行 (同时 ) .协调 、 合 作 开 发 
大 型 复杂 程序 。 使 用 外 部 子 程序 ,有 时 需要 在 主 调 程序 单元 中 通过 EXTERNAL 语句 声 
明 。 子 程序 包括 果 数 子 程序 和 子 例 行 子 程序 两 类 , 通 稼 将 图 数 子 程序 简称 为 图 数 , 子 例 行 子 
程序 简称 为 子 程序 。 

递归 子 程序 是 从 FORTRAN90 后 新 增 的 功能 之 一 ,适用 于 对 递归 问题 的 求解 。 对 于 递 
归 问 题 ,使 用 递归 子 程序 求解 将 大 大 降低 程序 设计 的 难度 。 一 般 情况 下 ,应 尽 可 能 将 求解 问 
题 描 述 成 递 推 或 递归 问题 ,以 便 使 用 递归 于 程序 求解 。 递 归于 程序 分 为 递归 男 数 子 程 序 和 
递归 子 例 行 子 程序 。 递 归 子 程序 定义 类 似 于 普通 子 程序 ,不 同 之 处 是 在 FUNCTION 或 
SUBROUTINE 语句 之 前 增加 一 个 RECURSIVE 属性 关键 字 前 组 。 

本 实验 是 学 习 和 掌握 FORTRAN 函数 和 子 程 序 的 一 次 系统 实验 。 通 过 本 实验 ,要 求 读 
者 能 够 使 用 语句 子 数 设计 和 编写 程序 来 求解 数值 计算 问题 ,能 够 熟练 使 用 函数 子 程序 、 子 例 
行 子 程序 和 递归 子 程 序 来 求解 比较 复杂 的 实际 问题 。 


一 、 实 验 目的 


1. 掌握 语句 浮 数 的 定义 及 引用 方法 ， 
2. 掌握 函数 子 程序 (FUNCTION 子 程序 ) 的 定义 及 引用 方法 。 
3. 掌握 子 例 行 子 程序 (SUBROUTINE 子 程 序 ) 的 定义 及 调用 方法 。 


РОРТВАМӘ5 程序 设计 实验 指导 与 测试 


4. 了 解 递 归 概 念 , 擎 握 递 归 问 题 的 求解 方法 。 

o. 擎 握 递归 子 程序 的 定义 、. 调用、 参数 传递 关系 的 基本 内 容 和 使 用 规则 。 

6. 掌握 FORTRAN 子 程序 的 形式 参数 .实际 参数 .参数 传递 的 基本 内 容 、 使 用 规则 及 
传递 方法 。 

7. 学 习 使 用 公用 语句 (COMMON 语句 ) .无 名 公用 区 和 有 名 公用 区 及 数据 块 子 程序 。 

8. 掌握 使 用 子 程序 并 行 .协调 、 合 作 编 写 大 型 复杂 程序 的 方法 。 
二 、 实 验 内 容 

【实验 内 容 7. 1】 在 解决 某 工 程 计算 问题 时 , 遇 到 下 列 函数 ， 

у(х) = 1 + 2z + z° 

1 + 2х + zx 


а + /z) 
as ba 1+2? 


убх) = 


- m 
y(x) = arctan - 


【实验 内 容 7.2】 1 SCm,n,k) = (i — р)? ,设计 一 个 计算 S 的 函数 子 程序 ,并 调用 
该 图 数 子 程序 计算 下 列 值 。 


X 


计算 x—0.1,:—0.2,x—0.3 时 上 述 函 数 的 值 ,并 输出 。 


S, = БУ 
1— 1 
100 
S, = >G — 5) 


【实验 内 容 7.3] 设计 一 个 函数 子 程序 ,将 一 个 数字 型 字符 转化 为 一 个 与 其 相同 的 数 
值 型 数据 ,并 调用 该 子 程序 完成 以 下 计算 。 

CD 将 字符 型 数据 '23456' 转 化 为 整 型 数据 23 456; 

(2) 将 字符 型 数据 '75. 8' 转 化 为 实 型 数据 75. 8。 

【实验 内 容 7.4】 设计 一 个 子 例 行 子 程序 SORT(A,N,K), 其 中 A 是 一 个 一 维 数组 ， 
N 是 A 的 元 素 个 数 ,SORT 的 功能 是 : 当 K —1 时 ,将 数组 A 按 升序 排列 ; 当 K = 0 时 ,将 
数组 A 按 降序 排列 ; 当 为 其 他 数值 时 ,数组 A 保持 原 序 。 

【实验 内 容 7.5】 困 数 二 可 用 以 下 递 推 公式 描述 : 


- = п = | 
тїт 


п 1 


f Ca n) = А 
HW 4i xe MEZ SX. АТВ a РАО Е. 
【实验 内 容 7.61 У “жж. К лж. EEEN Ж D= (А 数组 元 素 之 

TID /CB 数组 元 素 之 和 ),P=(A 数组 元 素 之 和 )X CB 数组 元 素 之 和 )。A 数组 大 小 为 3X2， 

B 数组 大 小 为 2X3, 通 过 COMMON 语句 传递 给 函数 。 通 过 数据 块 子 程序 给 A、B 数组 
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Iw E. 
三 、 实 验 要 求 
实验 课时 要 求 4 学 时 。 
1. 分 析 实 验 内 容 , 给 出 解 题 思路 ,设计 算法 ,编写 程序 。 
2. 了 解 程序 编写 的 基本 方法 ,编写 每 一 个 实验 内 容 的 程序 代码 。 
3. 创建 用 户 自 定义 文件 夹 shiyan07，, 创 建 在 D S Е. 
4. 在 文件 夹 shiyan07 内 分 别 创 建 每 一 个 实验 内 容 的 控制 台 exam] 至 ехатб. 


5. 在 各 自 对 应 的 控制 台 内 创建 源 程序 文件 cxl. f90 至 cx6. {90, 输 入 对 应 的 程序 代码 。 
6. 分 别 生成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 


四 、 实 验 步骤 


. 设计 算法 ,编写 程序 。 

. 在 D 盘 创建 文件 严 shiyan07 。 

. 打开 VS2010 集成 开发 环境 。 

. 分 别 为 每 一 个 实验 内 容 创建 各 自 的 控制 台 exam] 至 exam6, 

. 分 别 创建 源 程序 文件 сх1. 190 至 cx6. {90, 输 入 对 应 的 程序 代码 。 
. 各 自生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 


五 、 实 验 小 结 


本 实验 主要 涉及 语句 函数 .函数 子 程序 、 子 例 行 子 程序 以 及 递归 的 应 用 ,实验 时 要 注意 
语句 函数 .函数 子 程序 、 子 例 行 子 程序 的 定义 .调用 和 参数 传递 。 通 过 本 实验 ,要 求 对 语句 函 
数 、 函 数 子 程序 、 子 例 行 子 程序 以 及 递归 调用 有 深入 了 解 , 能 够 熟练 使 用 子 程序 编写 程序 。 
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【练习 7.1】 使 用 语句 函数 完成 程序 编写 。 求 解 一 元 二 次 方程 2 十 3z 一 2 一 0 的 两 个 
实数 根 并 输出 。 

【练习 7.2] 编写 函数 子 程序 ,用 轧 转 相 除法 求 两 个 数 的 最 大 公约 数 。 调 用 此 函数 求 
198 和 72 的 最 大 公约 数 。 

【练习 7.3】 编写 子 例 行 子 程序 求 矩 阵 的 转 置 。 要 求 在 主 程序 中 输入 矩阵 4, 调 用 子 
程序 求 4 APEI ИЕ B «dE ETET PS НЕЕ А,В. 

【练习 7.4】 已 知 勒 让 德 多 项 式 : 


1 == 0 
P(x) = : п = ] 


((2п— 1)Р, (х) — (т— 1) Р, .(z))/n n>] 
计算 当 zx 一 4. 98,912 时 的 函数 值 。 使 用 递归 函数 求解 。zxwn 的 值 从 键盘 输入 。 
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文件 


数据 是 程序 处 理 的 对 象 , 如 何 有 效 组 织 数据 是 程序 设计 的 基本 要 求 。 文 件 是 有 效 组 织 
数据 的 主要 手段 ,也 是 降低 程序 与 数据 耦合 度 .提高 程序 与 数据 独立 性 的 重要 方式 。 一 般 情 
况 下 ,一 个 实用 程序 都 需要 用 文件 组 织 输入 输出 数据 ,提高 数据 处 理 的 效率 。 

文件 有 三 种 存储 格式 、 两 种 存 取 方式 、 六 种 文件 类 型 ,根据 数据 的 不 同 要 求 、 不 同 特点 、 
不 同性 质 选择 使 用 文件 类 型 。 文 件 对 于 应 用 软件 的 设计 非常 重要 ,应 熟练 掌握 和 灵活 应 用 
文件 求解 问题 。 

本 实验 是 学 习 和 黎 握 文件 的 一 次 实验 。 通 过 本 实验 ,能 够 熟练 使 用 文件 设计 和 编写 程 
FF ,求解 比较 复杂 的 数据 处 理 问题 。 


一 、 实 验 目 的 


1. 了 解 文件 的 基本 概念 (内 部 文件 、 外 部 文件 .文件 分 类 ,存储 格式 、 存 取 方 式 )。 

2. 掌握 文件 的 打开 (OPEN) . 读 取 (READ) 、 写 人 (WRITE) .关闭 (CLOSE) .指针 定位 
(BACKSPACE) 等 内 容 , 重 点 掌握 有 格式 顺序 存 取 文件 的 使 用 ， 

3. 掌握 使 用 文件 设计 和 编写 程序 的 基本 方法 。 


二 、 实 验 内 容 


【实验 内 容 8.1】 已 知 9 个 两 位 整数 : 15,18,30,12,25,17,28,24,13 ,在 输入 数据 文件 
Gn. dat) 中 存放 这 批 数据 ,每 行 3 个 数据 。 从 数据 文件 读 取 这 批 数据 ,对 其 进行 从 小 到 大 排 
序 ,将 排序 结果 数据 输出 到 数据 文件 (out. dat) 中 ,每 行 3 个 数据 。 编 写 程序 实现 。 要 求 输 
出 结 采 数据 按 有 格式 输出 , 整 效 用 12 编辑 ,整数 之 间 空 2 格 。 

输入 数据 文件 内 容 如 下 : 

15 18 30 

12 25 17 

28 24 13 

输出 数据 文件 内 容 如 下 : 

12 13 15 

17 18 24 

25 28 30 

【实验 内 容 8.2] 已 知 输入 数据 文件 infor. dat 中 保存 有 若干 (人 数 不 定 ) 学 生 信 息 : 姓 
名 ,英语 成 绩 .FORTRAN 成 绩 , 每 行 和 存放 一 个 学 生 信 息 。 计 算 每 个 学 生 的 平均 成 绩 和 每 门 
评 程 的 平均 成 绩 , 将 每 个 学 生 的 姓名 、 英 语 成 绩 上 ORIRAN 成 绩 和 平均 成 绩 以 及 每 门 读 程 


实验 8 xf 
的 平均 成 绩 , 输 出 到 输出 数据 文件 outfor. dat 中 。 
Biz. 分 别 定义 存放 姓名 .英语 成 绩 .FORTRAN 成 绩 . 平 均 成 绩 的 数组 ,数组 元 素 个 
数 为 学 生 人 数 ，。 


.分析 实验 内 容 , 给 出 解 题 思 路 ,设计 算法 ,编写 程序 。 

. 了 解 程序 编写 的 基本 方法 ,编写 出 每 一 个 实验 内 容 的 程序 代码 。 

. 创建 用 户 自 定义 文件 夹 shiyan08 ,创建 在 D Е. 

在 文件 夹 shiyan08 内 分 别 创建 两 个 实验 内 容 的 控制 台 exam] 和 exam2 。 

. 在 各 自 对 应 的 控制 台 内 创建 源 程序 文件 exl. £90 和 cx2.f90, 输 入 对 应 的 程序 代码 。 
. 分 别 生成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 


四 、 实 验 步 又 


1. 设计 算法 ,编写 程序 。 

2. ЕЮ 0 Ж{{ ЭУ shiyan08 。 

3. 打开 VS2010 集成 开发 环境 。 

4. 创建 控制 台 examl, 创 建 源 程序 文件 cxl. f90, 输 入 程序 ,生成 可 执行 文件 ,执行 程 
序 ,得 到 运行 结果 。 

5. 创建 控制 台 exam2 ,创建 源 程 序 文件 cx2. f90, 输 入 程序 ,生成 可 执行 文件 ,执行 程 
序 ,得 到 运行 结果 。 

6. 完成 上 机 实验 报告 。 


五 、 实 验 小 结 


本 实验 主要 是 练习 文件 的 应 用 ,实验 时 要 注音 文件 的 打开 、 读 取 、 写 入 、 关 闭 等 操作 。 通 
过 本 实验 ,要 求 对 文件 有 深入 了 解 ,能 够 正确 地 从 文件 中 读 取 所 需 数 据 并 将 运行 结果 保存 到 
ХЕ. 


— 
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派生 类 型 和 结构 体 是 从 FORTRA N90 开始 新 增 的 功能 之 一 ,适用 于 求解 数据 成 分 比较 
复杂 的 数据 处 理 问题 ,使 数据 的 组 织 和 表示 更 加 方便 、 灵 活 。 派 生 类 型 和 结构 体 的 引入 , 极 
大 地 增强 了 FORTRAN 的 数据 描述 和 处 理 能 力 。FORTRAN95 允许 用 户 使 用 派生 类 型 日 
定义 特定 的 数据 类 型 ,求解 复杂 的 实际 问题 。 派 生 类 型 和 结构 体 是 组 织 和 表示 复杂 数据 的 
有 效 手段 ,应 熟练 沿 握 使 用 派生 类 型 和 结构 体 求解 问题 的 方法 ,提高 程序 设计 能 力 和 水 平 。 
生 类 型 和 结构 体 设计 、 编 写 程序 ,求解 比较 复杂 的 数据 处 理 问 题 。 


一 、 实 验 目的 

1. 了 解 派 生 类 型 和 结构 体 的 概念 , 笃 握 复杂 数据 的 组 织 和 表示 方法 。 

2. 擎 握 派 生 类 型 定义 ,结构 体 声明 ,结构 体 成 员 引 用 的 基本 内 容 和 使 用 规则 。 

3. 擎 握 使 用 派生 类 型 和 结构 体 设计 编写 程序 的 方法 ，。 
二 、 实 验 内 容 

【实验 内 容 9.1】 茶 工 厂 要 为 4 辆 汽车 建立 档案 ,汽车 的 重要 参数 有 : 编写 、 名 称 、 购 入 
日 期 .价格 .完好 状态 。 信 息 如 下 表 所 示 。 


编号 名 称 购 入 年 份 


QC01 85 000 故障 
QC02 92 000 sd 
QC03 180 000 x 
QC04 350 000 完 


查找 使 用 5 年 以 上 的 完好 汽车 ,并 输出 汽车 的 重要 参数 。 使 用 派生 类 型 设计 和 编写 程 
F. WH: 编号 最 多 4 个 字符 ,名 称 最 多 8 个 汉字 ,完好 状态 最 多 2 个 汉字 。 

【实验 内 容 9.2】 已 知 数据 文件 infor. dat 中 保存 有 班级 学 生 信 息 , 包 括 姓名 .英语 成 
mi FORTRAN 成 绩 , 每 行 存 放 一 个 学 生 信 息 。 计 算 每 个 学 生 的 平均 成 绩 和 班级 平均 成 绩 ， 
根据 每 个 学 生 的 平均 成 绩 将 学 生 分 成 A、B、C 三 个 等 级 ,大 于 班级 平均 成 绩 10 分 者 为 A 
等 ,小 于 班级 平均 成 绩 10 分 者 为 C SF, 其余 为 B 等 。 输 出 每 个 学 生 姓 名 、 英 语 成 绩 、 
FORTRAN 成 绩 .平均 成 绩 、 等 级 ,以 及 班级 平均 成 绩 。 使 用 派生 类 型 设计 和 编写 程序 。 说 
Hj. 姓名 最 多 4 个 汉字 ,成 绩 保 留 小 数位 数 1 位 。 
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三 、 实 验 要 求 


,分析 实验 内 容 , 给 出 解 题 思路 ,设计 算法 ,编写 程序 ， 

, 丁 解 程序 编写 的 基本 方法 ,编写 出 每 一 个 实验 内 容 的 程序 代码 ， 

. 创建 用 户 自 定义 文件 夹 shiyan09 ,创建 在 D 盘 上 。 

.在 文件 来 shiyan09 内 分 别 创建 两 个 实验 内 容 的 控制 人 台 exam] 和 exam2 。 

. 在 各 自 对 应 的 控制 台 内 创建 源 程 序 文 件 exl. £90 和 cx2. {90, 输 入 对 应 的 程序 代码 。 
. 分 别 生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 


1. 设计 算法 ,编写 程序 。 

2. Æ D AJE xc f/f e shiyan09。 

3. 打开 VS2010 集成 开发 环境 。 

4. 创建 控制 台 examl, 创 建 源 程序 文件 cxl. {90, 输 入 程序 ,生成 可 执行 文件 ,执行 程 
序 ,得 到 运行 结果 。 

5. 创建 控制 台 exam2, 创 建 源 程序 文件 cx2. f90, 输 入 程序 ,生成 可 执行 文件 ,执行 程 
序 ,得 到 运行 结果 。 

6. 完成 上 机 实验 报告 。 


五 、 实 验 小 结 


构 体 声明 和 结构 体 成 员 引 用 。 
通过 本 实验 ,学 生 对 派生 类 型 和 结构 体 有 深入 了 解 ,能 够 熟练 使 用 派生 类 型 和 结构 体 设 
计 和 编写 程序 ,对 数据 处 理 有 一 定 认 识 。 
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利用 课余 时 间 完 成 以 下 练习 ,以 巩固 所 学 知识 。 

【练习 9.1】 编写 班级 成 绩 考 评 程序 ,完成 下 列 操作 。 

(1) 采用 数据 文件 输入 某 班 级 30 名 同学 的 学 号 及 五 门 课程 的 成 绩 ; 

(2) 求 出 每 名 同学 的 总 分 ,统计 各 门 课程 的 平均 分 ; 

(3) 统计 各 门 课程 中 高 于 和 低 于 平均 分 的 人 数 ; 

(4) 按 总 分 高 低 排出 名 次 ,在 文件 中 输出 名 次 、 学 号 及 总 分 ( 按 学 号 顺序 输出 )。 
(5) 分 数 碍 询 。 输 入 某 一 同学 的 学 号 ,输出 该 生 的 名 次 各 门 诛 程 的 成 绩 及 总 分 。 
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指针 


指针 是 自 FORTRAN90 开始 新 增 的 功能 之 一 ,是 现代 程序 设计 语言 的 重要 特征 ,用 于 
实现 动态 数据 结构 ,如 链表 、 树 结构 、 图 结构 等 。 指 针 和 动态 数据 结构 对 于 应 用 软件 的 设计 
非常 重要 ,熟练 掌握 和 灵活 应 用 指针 和 动态 数据 结构 ,可 编写 简洁 高效、 紧凑 的 程序 。 

指针 和 动态 数据 结构 的 应 用 可 减少 存储 空间 的 浪费 ,提高 程序 的 灵活 性 ,但 程序 设计 难 
度 相 对 其 他 数据 类 型 更 大 ,需要 投入 更 多 的 时 间 和 精力 学 习 、 掌握 指针 与 动态 数据 结构 的 概 


念 及 其 应 用 。 
本 实验 是 学 习 和 向 握 指针 与 链表 的 一 次 实验 。 通 过 本 实验 ,能 够 熟练 使 用 指针 和 动态 


数据 结构 设计 和 编写 程序 ,求解 比较 复杂 的 数据 处 理 问 题 。 
一 、 实 验 目的 


l. 了 解 指针 和 动态 数据 结构 的 概念 ,掌握 指针 的 存储 结构 和 访问 方式 。 

2. 掌握 指针 声明 ,指针 赋 值 、 指 针 引 用 的 基本 内 容 和 使 用 规则 。 

3. 了 解 别名 指针 和 整 型 指针 的 基本 含义 和 异同 点 ,掌握 别名 指针 和 整 型 指针 的 使 用 方 
法 和 使 用 规则 。 

4. 了 解 链 表 的 特点 。 

5. 掌握 使 用 指针 和 链表 设计 和 编写 程序 的 基本 方法 。 
二 、 实 验 内 容 

【实验 内 容 10.1] 从 键盘 输入 5 个 整数 ,使 用 指针 对 其 进行 从 小 到 大 排序 ,并 输出 排 
序 前 后 的 整数 。 

提示 : 定义 5 个 整 型 目标 变量 ,及 5 个 指 回 目标 变量 的 指针 变量 。 或 定义 包含 5 个 整 
型 元 素 的 数组 ,及 指向 目标 数组 的 指针 数组 。 本 题 求解 算法 比较 简单 ,主要 是 了 解 和 掌握 指 
针 概 念 , 以 及 指针 与 非 指针 的 不 同 之 处 。 

【实验 内 容 10.2] 已 知 8 个 学 生 的 学 号 .英语 成 绩 、 FORTRAN 成 绩 , 计 算 每 个 学 生 的 
ee 页 大 于 等 于 90 分 的 优秀 学 生 人 数 , 输 出 每 个 学 生 的 学 号 .英语 成 
Zi FORTRAN 成 绩 ,以 及 优秀 学 生 人 数 。 编 写 程 序 实 现 。 要 求 数据 从 键盘 输入 ,使 用 派生 
X. 结构 体 、 指 针 、 结 构 体 指针 数组 实现 ，。 

【实验 内 容 10.3] 编写 程序 ,建立 一 个 单 癌 链表 ,节点 包含 一 个 整 型 数据 ,链表 至 少 包 
括 三 个 节点 ,完成 链表 的 输入 与 删除 操作 。 


实验 10 指针 9 


三 、 实 验 要 求 


1. 分 析 实 验 内 容 , 给 出 解 题 思路 ,设计 算法 ,编写 程序 。 

2. 了 解 程序 编写 的 基本 方法 ,编写 出 每 一 个 实验 内 容 的 程序 代码 。 

3. 创建 用 户 日 定义 文件 夹 shiyan10 ,创建 在 D 盘 上 。 

4. 在 文件 夹 shiyan10 内 分 别 创 建 每 一 个 实验 内 容 的 控制 台 exam] ,exam2 exam3, 

5. 在 各 自 对 应 的 控制 台 内 创建 源 程序 文件 exl. {90、cx2. f90.cx3. {90, 输 入 对 应 的 程序 


6. 分 别 生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 
7. 完成 上 机 实验 报告 。 


四 、 实 验 步 又 


. 设计 算法 ,编写 程序 。 
. Æ DRUENE shiyan10。 
. 打开 VS2010 集成 开发 环境 。 
. 分 别 为 每 一 个 实验 内 容 创 建 各 自 的 控制 台 examl exam2 .exam3 。 
. 分 别 创 建 源 程序 文件 cxl. f90 .cx2. f90 .cx3. f90 ,输入 对 应 的 程序 代码 。 
. 各 自生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 
.完成 上 机 实验 报告 。 
五 、 实 验 小 结 
本 实验 的 主要 目的 是 擎 担 指 针 的 基本 概念 和 应 用 ,实验 时 要 注音 指针 的 再 明 、 引 用 和 赋 
值 。 通 过 本 实验 ,能 够 对 指针 腔 入 了 解 ,能 够 熟练 使 用 指针 设计 和 编写 程序 ,能 够 使 用 单 
器 链表 ,对 动态 数据 第 构 有 一 定 了 解 。 
六 、 课 外 练习 
利用 课余 时 间 完 成 以 下 练习 ,以 巩固 所 学 知识 。 
【实验 内 容 10.1】 用 链表 完成 学 生 信 息 的 管理 。 已 知 学 生 信 息 包 括 姓 名 、 学 号 和 一 门 
课 成 绩 。 建 立 包括 7 个 学 生 节 点 的 链表 (n 由 键盘 输入 ), 完 成 按 学 号 的 排序 、 插 入 、 查 找 和 
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模块 


模块 是 自 FORTRAN90 后 为 适应 面 癌 对 象 程序 设计 方法 新 增 的 功能 ,是 FORTRAN 
中 很 重要 的 一 项 添加 功能 。 模 块 的 作用 主要 体现 在 把 具有 相关 功能 的 函数 及 变量 封装 在 一 
起 ,支持 特性 继承 .操作 重 载 等 面向 对 象 操作 。 在 共享 数据 时 提高 了 数据 的 安全 性 ,同时 可 
通过 继承 来 重复 使 用 程序 代码 。 

本 实验 的 目标 是 学 习 和 千 握 模块 的 基本 概念 。 通 过 本 实验 ,能 够 使 用 模块 设计 和 编写 
程序 ,求解 比较 复杂 的 问题 。 


一 、 实 验 目 的 


. 和 擎 握 模 块 的 基本 概念 和 使 用 规则 。 
. 了解 面 回 对 象 程序 设计 方法 的 基本 概念 。 
. 擎 握 接 口 界 面 块 的 使 用 规则 。 
. 等 握 郴 数 . 子 例 行 子 程序 和 操作 符 的 重 载 方 法 。 

o. 擎 握 使 用 模块 设计 和 编写 程序 的 方法 。 
二 、 实 验 内 容 

【实验 内 容 11.1] 使 用 模块 知识 编 与 求 正 方 算 阵 对 角 线 元 素 的 和 的 程序 (要 求 : 在 主 
程序 中 通过 动态 数组 输入 需要 求 和 的 数组 ) 。 
|^ Voca o (r0 
0 Cx — 0) ,编写 图 数 子 程序 和 主 程序 ， 
li- М1+22 (z>0) 
求 工 值 分 别 为 0.5、sqrt(15)、sin(0.3) 时 的 函数 值 。 提 示 : 创建 内 部 函数 sqrt(x) 的 重 载 , 使 
其 能 够 计算 整 型 数据 的 平方 根 。 

【实验 内 容 11.3] 统计 某 钟 点 工 的 总 工作 时 间 , 以 小 时 和 分 钟 计 时 。 编 写 程 序 实现 加 
法 运算 符 重 载 ,使 其 能 够 计算 时 间 的 加 法 。 如 1 小 时 20 分 加 2 小 时 45 分 的 结果 是 4 小 时 5 


【实验 内 容 11.2] BAX f(x) 三 


实验 课时 要 求 4 学 时 。 

І. 分 析 实 验 内 容 , 给 出 解 题 思路 ,设计 算法 ,编写 程序 。 

2. 了 解 程序 编写 的 基本 方法 ,编写 出 每 一 个 实验 内 容 的 程序 代码 。 
3. 创建 用 户 自 定义 文件 夹 shiyan11 ,创建 在 D 盘 上 。 


实验 11 模块 
4. 在 文件 来 shiyanll 内 分 别 创建 每 一 个 实验 内 容 的 控制 台 examl exam2 .exam3 。 
5. 在 各 自 对 应 的 控制 台 内 创建 源 程序 文件 cxl. f90 сх2. f90 .cx3.f90, 输 入 对 应 的 程序 


6. 分 别 生成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 
7. 完成 上 机 实验 报告 。 


四 、 实 验 步骤 


1. 设计 算法 ,编写 程序 。 

2. TE D RAJE XE shiyanll, 

3. 打开 VS2010 集成 开发 环境 。 

4. 分 别 为 每 一 个 实验 内 容 创建 各 目的 控制 台 exam] .exam2 exam3, 

5. 分 别 创 建 源 程序 文件 cxl. f90 .cx2. f90 .cx3. f90, 输 入 对 应 的 程序 代码 。 
6. 各 自生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 

7. 完成 上 机 实验 报告 。 


五 、 实 验 小 结 


本 实验 的 主要 目的 是 掌握 模块 的 基本 概念 和 应 用 ,实验 时 要 注意 模块 的 定义 和 引用 。 
通过 本 实验 ,能 够 对 模块 和 面向 对 象 程序 设计 方法 有 一 定 的 了 解 , 能 够 使 用 模块 设计 和 编写 
程序 ,能 够 实现 函数 、 子 例 行 子 程序 和 操作 符 的 重 载 。 


六 、 课 外 练习 


利用 课余 时 间 完 成 以 下 练习 ,以 巩固 所 学 知识 。 

【练习 11.1] 使 用 模块 定义 一 个 本 科 生 类 STUDENT ,包含 的 数据 成 员 有 : 姓名 、 性 
别 、 诬 程 门 数 和 各 门 课程 分 数 ,包括 的 模块 过 程 有 : 构造 函数 ,计算 平均 分 函数 ,打印 姓名 、 
性 别 和 平均 分 的 子 例 行 子 程序 。 在 主 程序 中 定义 本 科 生 类 的 对 象 ,输入 3 个 本 科 生 类 的 对 
象 , 分 别 有 4、5.、6 门 评 程 及 分 数 ,分 别 打 印 他 们 的 姓名 .性别 和 平均 分 。 


计算 方法 


综合 应 用 前 面 所 学 知识 进行 一 些 常用 算法 的 程序 设计 ,主要 包括 数值 积分 ,一 元 方程 求 
根 . 定 阵 分 解 和 线性 方程 组 求解 及 解 微分 方程 。 这 些 问 题 在 计算 机 解 题 过 程 中 经 并 遇 到 , 通 
过 它们 进一步 学 习 程 序 设计 的 方法 和 技巧 ,并 在 此 基础 上 举一反三 。 

本 实验 是 一 次 综合 应 用 试验 ,是 对 前 面 所 学 内 容 的 一 次 总 结 。 通 过 本 实验 ,要 求 掌握 篆 
用 的 数值 计算 方法 的 程序 应 用 。 


一 、 实 验 目 的 


1. 掌握 数值 积分 的 近似 算法 ， 
2. 掌握 求解 一 元 方程 根 的 多 种 算法 ， 
3. 掌握 常用 线性 代数 的 数值 方法 。 


二 、 实 验 内 容 


【实验 内 容 12.1] 用 矩形 法 ,梯形 法 和 辛普森 法 分 别 求 | (1 + er)dz 。 当 积分 区 间 为 


[1.0,2.0] 时 ,根据 不 同 的 区 间 数 100、1000、10000 求 定 积分 的 值 。 要 求 精确 到 小 数 点 后 
6 位 。 
【实验 内 容 12.2] 用 牛顿 迭代 法 求 方程 f(z) 二 27x 一 4z T 3z—7=0 fE == 2. 5 附近 
的 实 根 ,直到 满足 |z cuilml0 “为 止 。 
【实验 内 容 12.3] 试用 二 分 法 求 方程 sin(22) +z —1.9=0 在 区 间 L1,2j| 的 一 个 实 
Hx. 
3 2 ] 
2 ] —1 
1 —4 5 
【实验 内 容 12.5] 利用 Gauss-Jordan 法 求 下 列 三 元 一 次 方程 组 : 
[^ + у-Е3е = ] 
43r—2y4-22 —2 
Lr Ду = 1 


【实验 内 容 12.4] KEHE 转换 为 上 三 角 阜 阵 和 下 三 角 和 抢 阵 并 输出 。 


=. ZERK 


实验 课时 要 求 4 学时。 
1， 分 析 实验 内 容 ,给 出 解 题 思路 ,设计 算法 ,编写 程序 。 


实验 12 BAIE 
.了解 程序 编写 的 基本 方法 ,编写 出 每 一 个 实验 内 容 的 程序 代码 。 

创建 用 户 自 定义 文件 夹 shiyan12 ,创建 在 D t E. 

在 文件 夹 shiyanl2 内 分 别 创 建 每 一 个 实验 内 容 的 控制 台 exam] 至 exam5, 
. 在 各 自 对 应 的 控制 台 内 创建 源 程序 文件 exl. f90 至 cx5. {90, 输 入 对 应 的 程序 代码 。 
. 分 别 生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 


. 设计 算法 ,编写 程序 。 

. Æ DUELE shiyanl2, 

. 打开 VS2010 集成 开发 环境 。 

. 分 别 为 每 一 个 实验 内 容 创 建 各 自 的 控制 台 exam] 至 exam5。 

. 分 别 创 建 源 程序 文件 cxl. 190 至 схо. {90, 输 入 对 应 的 程序 代码 。 
. 各 自生 成 可 执行 文件 ,执行 程序 ,得 到 运行 结果 。 


五 、 实 验 小 结 


通过 本 实验 ,要 求 掌握 数值 积分 .一 元 方程 求 根 .和 矩阵 分 解 和 线性 方程 组 求解 的 应 用 ,党 
握 常用 数值 计算 方法 的 设计 和 编程。 
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题 1 分, 共 30 分 ) 
1. FORTRAN95 自由 格式 源 程 序 的 扩展 名 是 
A. for B. f90 C. for90 D. f 
2. 下 列 关 于 算法 的 论述 中 ,不 正确 的 是 
А. 一 个 算法 应 包含 有 限 个 执行 步骤 ,但 每 一 步 的 完成 时 间 无 限制 
B， 算 法 的 含义 应 当 是 唯一 的 ,而 不 应 当 产 生 ”" 芭 义 性 ” 
С. 算法 中 的 每 一 个 步骤 郡 应 当 被 有 效 地 执行 ,并 得 到 确定 的 绪 采 
D. 一 个 算法 允许 有 硅 干 个 输入 输出 
3. 下 列 名 称 中 是 合法 的 变量 名 的 是 Е 


A. a(l) B. а, 1$ с C. ax ] D. а_1$с 
| We кыс ыз E ji 
4, 可 数学 表达 式 一 一 5 一 对 应 的 正确 的 FORTRAN95 表达 式 是 ° 


A. -B+-SQRT(B xx 2-4* А х C)/2 х А 
B. -B+ SQRT(B хх 2-4AC)/(2 * A) 

C. CB+SQRT(B ** 2-4 х А x C))/2A 
D. CB--SQRT(B xx 2-4 x А х C))/2/ A 


9. РУР Л Н S BJ ЛЕ : 
A. N=INT(A) B. T=SQRT(4) 
C. Y=MAX(A1, A2,A3) D. K=MOD(A1, A2) 


6. 下 列 选 项 中 ,合法 的 FORTRAN 常量 是 


A. 3,57 D. 3:397 E21 С» AST ES 1" IX Ç3.57,E* 1.2) 


7. 下 列 数据 类 型 中 ,不 属于 FORTRAN 语言 内 部 数据 类 型 的 是 
А. "ERI B. 字符 型 C. 数组 类 型 D. 逻辑 型 


8. FORTRAN 中 不 同 级 别 类 型 的 数据 做 算术 运算 时 , 须 先 将 级 别 低 的 转换 成 级 别 高 
的 类 型 ,然后 进行 计算 ,结果 类 型 为 级 别 高 的 。 下 列 类 型 中 级 别 最 高 的 类 型 是 . 


A. 类 别 类 型 参数 KIND —4 的 实 型 
В. DOR BESK AI 
C. 类 别 类 型 参数 KIND= 4 的 复 型 
D. 双 精 度 复 型 


9, FORTRAN95 自由 格式 规定 , 多 行 语句 写 在 一 行 时 用 作 语 句 分 隔 标 志 的 


3$! FoRTRANeS 程序 设计 实验 指导 与 测试 


ЖЕ . 
A. ё. B. ; E 7 D. 4 
10. FORTRAN 的 逻辑 运 算 符 有 me. 
A. 3 D. 4 (2. 5 D. 6 


11. 下 列表 达 式 中 值 为 . TRUE. 的 是 | 
A. . NOT. (. TRUE..OR.. TRUE.. AND.. FALSE. ) 
b. . NOT.. FALSE.. AND.. FALSE. 
C. . NOT. C. FALSE. . AND.. TRUE.) 
D. . NOT.. FALSE.. AND.. TRUE.. EQV.. FALSE. 
12. 以 下 程序 不 用 第 三 个 变量 ,将 两 个 变量 的 值 进行 互 换 操作 ,正确 的 一 组 操作 


INTEGER А,В 
READ x , A, B 
А= (D 
B= © 
a= Ọ 
PRINT x , A, B 
END 


A. DAxB А/В В/А 
B. DA«B A/B A/B 
C. © A+B A—B B—A 
D. D А+В A—B A—B 
13. ik A 的 值 为 1.0, 执 行 程序 段 后 也 的 值 为 3. 0。 


A. IF(A <=1.0)B=1.0 B. B=1.0 
IF(A2>1.0)B=2.0 IFCA <1.0)B=1.0 
IFCA « 2. 00B—2.0 

C. B—1.0 D. IF(A >=1.0)B=2.0 
IFCA >=1. 0) B—2.0 IFLA >=2. 0)DB=3. 0 
ЕСА >=2. 0)B=3. 0 
IFLA «—3, 005—535. D 


14. 阅读 下 列 FORTRAN 程序 : 


I2-1; J21; M-4; N=4 
ІЕ(І = = 1)THEN 
IF(J = = 0) THEN 
M-Mt1 
ELSE IF(J = = 1)THEN 
N=N+1 
END IF 
ELSE 
M=M+1 
N=N-1 
END IF 


PRINT +, M, N 
END 


执行 上 述 程序 后 ,输出 的 结果 为 А 
А. 4 4 В. 4 5 С. 5 4 


15. 关于 FORTRAN95 的 块 IF 结构 ,以 下 说 法 中 正确 的 是 


A. 块 IF 结构 中 THEN 块 或 ELSE 块 不 能 是 空 块 
B. 块 IF 结构 中 至 少 有 一 个 ELSE IF 语句 或 ELSE 语句 
С. 每 一 个 ELSE ТЕ 语句 要 有 一 个 对 应 的 ENDIF 语句 
D. 一 个 块 IF 结构 中 只 能 有 一 个 ENDIF 语句 

16. 阅读 以 下 程序 段 : 

CHARACTER A 


А = CHAR(ICHAR('b') + ICHAR( 'A') — ICHAR('a')) 
PRINTx , A 


输出 的 A 为 。 
А. А В, а С. В 
17. 对 于 DO 语句 “DO 1=1. 5,5 
A. 1 次 B，2 次 C. 3 次 
18. 下 列 程序 执行 后 ,输出 的 结果 为 。 


К=0 

DO I=1,10 
К=1 

ENDDO 

PRINT х, K, I 

END 


A. 10, 10 B. 10, 11 C. 0, 11 
19. 下 列 程序 中 ,第 行 语句 有 错误 。 


PROGRAM P01 

INTEGER:: I,S=0 

DOI=10,1, 一 2 
I-I*x*I 
с=5+1[ 

ENDDO 

END PROGRAM 


Уу Cy їл Be ош М e 


A. 2 B. 3 C. 4 
20. EXIT 语句 的 使 用 范围 只 能 在 : 
A. HIF 结构 内 B. РОЛ M. Zñ fJ Vj 


C. Ж CASE 结构 内 D. WHERE 结构 内 
21. 已 知 数组 说 明 “REAL A(4,5)”, 数 组 元 素 A(2,3) 是 数组 的 第 


А. 7 В. 8 С. 9 
22. 下 列 有 关 FORTRAN95 数组 的 说 法 中 ,正确 的 是 | 


,2”, 可 计算 出 循环 次 效 为 


模拟 测试 1 


D. 7 


D. 10 


99 


个 元 素 。 
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A. 数组 定义 二 名 只 能 定义 一 维 或 二 维 数组 
В. 数组 元 素 下 标 不 能 出 现 负 值 

C. 程序 中 使 用 的 数组 必须 进行 说 明 

. 在 同一 程序 单元 中 ,数组 名 可 以 与 变量 
23. 有 语句 为 : 


INTEGER A(2,3) 
READ x ,A 


名 相同 


如 果 从 键盘 输入 的 数据 是 “10,20,30,40,50,60”, 则 A 数组 的 逻辑 结构 是 А 


А. 10 20 30 В. 10 30 50 
40 50 60 20 40 60 
С. 10 20 D. 10 40 
30 40 20 50 
90 60 30 60 


24. 下 列 程序 的 输出 结果 是 ë 
INTEGER:: M(3,3),S=0 
DATA М/1,2,3,4,5,6,7,8,9/ 
DOK-1,3 
DOJ=1,K 
S=S+M(K,J) 
ENDDO 
ENDDO 
PRINT x ‚5 
END 
A. 45 Б. 40 C. 34 D. 26 
25. BA А,В,С 为 实 型 变量 ,IA 为 包含 5 个 元 素 的 整 型 数组 , 则 下 列 赋值 语句 中 正确 
的 是 
A. DATA IA(5).A.B.C/8 x 1. 0/ 
B. DATA A,B,C/3*1.0/,IA/5*1/ 
C. DATA ТІА/5*1/,А+В,С/2. 0;3. 0/ 
D. DATA А,В.С/3*1.0/.1АС5)/5 x1/ 


26. Гит н] KROGE Y IF Bas 。 


A. F(X,Y(D)=SIN(X)+ YCD B. ЕХ,Х) = Ххх 2—Y-r2 
С. ЕСХ,2) =Х x« 2-T 2 D. F(X, Y) =X+ Y+ MAX(CX, Y) 


27. 有 如 下 FORTRAN 子 程序 ,下 列 调用 语句 中 正确 的 是 > 


SUBROUTINE SUB(K, A) 
A=K+2 
END 
A. CALL SUBON,N) В. CALL SUB(X.X) 
С. CALL SUB(N+-2, X) D. CALL SUB(N,X+-3) 


模拟 测试 1 М 
28. COMMON 语句 的 功能 是 | 
А. 给 同一 程序 模块 中 的 知 干 变量 分 配 同 一 存储 单元 
B. 给 不 同 程序 模块 中 的 变量 分 配 相 同 的 存储 单元 
С. 只 能 给 不 同 程序 模块 中 的 相同 名 字 的 变量 分 配 相 同 的 存储 单元 
D. 给 同一 程序 模块 中 的 相同 类 型 变量 分 配 相 同 存 储 单元 
29. AW FoE X: 
TYPE STUDENT 
INTEGER NUM 
CHARACTER x 10 NAME 
REAL SCORE 
END TYPE 
TYPE(STUDENT):: STU 


结构 体 变量 STU hti EE RUE XUE ° 
A. 4 B. 12 C. 18 D. 不 确定 
30. РУЖ ЯМЕН ЛЕ à 
A. 所 谓 打 开 文 件 就 是 实现 文件 与 设备 的 连接 
В. 读 取 文 件 是 将 数据 从 文件 传送 到 内 存 
С. 写 入 文件 是 将 数据 从 内 存 传送 到 文件 
D. 一 个 OPEN 语句 可 以 打开 多 个 文件 
二 、 填空 题 (每 空 2 分 , 共 20 分 。 请 将 以 下 程序 空缺 补充 完整 ) 
l. 输入 一 个 三 位 整数 ,将 它 反 回 输出 ,如 输入 123 ,输出 321. 


READ * ,N 

І1 = (1) 

12 = (2) 

ІЗ = MOD(N, 10) 

М = I1 + I2 x 10 + I3 x 100 
PRINT x ,M 

END 


2. jk 1 一 100( 包 括 100) 范 围 内 的 全 部 偶数 之 和 。 


INTEGER 1,5 
S= (3) 
DOI=1,100 
ТЕ ( (4) )CYCLE 
S-S4I 
ENDDO 
PRINT x ,S 
END 


3. 求 L2,100j] 范 围 内 的 素数 。 所 请 系数 是 指 只 能 被 1 和 日 号 整除 而 不 能 被 其 他 数 整 除 
的 整数 ( 除 1 以 外 )。 完 成 下 列 程序 : 


INTEGER:: M 
DO M= 2,100 
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J = INT(SORT(1.0 x M)) 


DOI=2,J 
IF(MOD(M, I) = = 0) (5) 
ENDDO 
IF( (6)  )PRINT x, M 
ENDDO 
END 


4. 在 主 程序 中 输入 10 个 数据 ,调用 排序 子 程序 利用 冒 泡 法 把 输入 的 一 列 无 序 的 数据 
按 由 小 到 大 的 顺序 排列 。 完 成 下 列 程序 : 


(7) 
INTEGER A(N) 
READ х, A 
(8) 
PRINT x ,A 
END 
SUBROUTINE SORT(A, N) 
INTEGER A( N) 
DOK-1,N-1 
DO J=1, (3) 
IF( (10) ) THEN 
TEMP = A(J) 
А(Ј) =A(J+ I) 
A(J +1) = TEMP 
ENDIF 


三 、 阅 读 程序 ,与 出 程序 的 运行 结果 (每 题 3 分, 共 15 分 ) 


2. CHARACTER A(4) 
DATA А/'1','2','3','4'/ 
DO I=1,4 
PRINT * , (A(J),J 2 1,I) 
ENDDO 
END 


3. PARAMETER (N = 3) 
INTEGER A(N,N),S 
DATA A/1,2,3,4,5,6,7,8,9/ 
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Sz0 
DO I-1,N 
S=S+A(L I) 
ENDDO 
PRINT х, S 
END 


4. INTEGER A(2,3) 
DATA A/1,2,3,4,5,6/ 
PRINT 100,A 
PRINT 200, ((A(I,J),J =1,3),1=1,2) 
100 FORMAT( 1X, 213) 
200 FORMAT(1X, 313) 
END 


. EXTERNAL P 
CALL 5 (P,1.0,2.0,T) 
PRINT x,T 
END 


“л 


FUNCTION Р (X, Y) 
P=Xx2+YxY 
END 


SUBROUTINE S (Е,А,В,С) 
C=F (A,B) 
С=Е (В,С) 
END 
四 、 编 程 题 ( 第 1 小 题 7 分 ,第 2 小 题 8 分 ,第 3.4 小 题 各 10 分 , 共 35 分 ) 
1. 从 键盘 输入 过 的 值 , 求 у 的 值 。 
eM F cosl) х < 0 
|; ж= Ü 
|= 
= © > Ü 
/1 + x° ü 
2. 编写 程序 ,计算 1 十 1 十 3 十 1 十 3 十 5 十 1 十 3 十 5 十 7 十 … 十 (1 十 3 十 5 十 7 十 … 十 7) ,运行 
程序 时 从 键盘 上 输入 n 的 值 。 
3. 编程 求 出 |2,10000j 范 围 内 的 所 有 “ 完 数 ”。 所 谓 “ 完 数 ” 是 指 除 自身 之 外 的 所 有 因子 
之 和 等 于 该 数 的 数 。 如 28 是 一 个 完 数 ,因为 28 的 因子 有 1.2、4、7、14, 且 28 王 1 十 2 十 4 十 
74-14, 
4. 一 维 数组 A 中 存放 了 N 个 正 整 数 , 要 求 找 出 N 个 数 中 的 最 大 值 和 最 小 值 ,并 输出 
两 者 之 差 。 


TR HA 111 2 


、 选 择 题 (在 每 小 题 给 出 的 4 个 答案 选项 中 只 有 一 项 是 正确 的 , 写 出 正确 的 选 


题 1 分 , 共 30 分 ) 


1. 下 列 叙 述 正确 的 是 ° 

A. FORTRAN 语言 属于 高 级 语言 

В. 程序 设计 语言 是 全 部 计算 机 指令 的 集合 

C. 高 级 语言 程序 能 被 计算 机 直接 识别 ,理解 和 执行 

D. FORTRAN95 语言 具有 模块 化 、 结 构 化 和 面 癌 对 象 三 种 特征 
2. 在 Visual Fortran 中 ,运行 一 个 FORTRAN 程序 的 步骤 是 


A. SFR .编辑 .链接 .运行 В. 编 坪 .链接 .编辑 .运行 
C. 编辑 ZEE .运行 .调试 D. 编辑 ,编译 ,链接 ,运行 
3. 下 列 自由 格式 FORTRAN 语句 不 正确 的 是 
BA. AX—3.9:1—3 B. R—2.0! R 为 圆 的 半径 
C. A—2*x4*xCOS(OX *3.1415926/180 D. N=N+1 
4. RARI IEEE à 
A. Number $ B. area C. 3xyz D. Lztu $ x 


“п 


与 数学 表达 式 一 шаси уб Аас 对 应 的 正确 的 FORTRAN95 RARE 


А. B—SQRT(B*B—4 * À *C)/2* LN(X) 

B. CB—-SQRT(B хх 2—4 x A ж O)D/O x LOGCX)) 
C. (D—SQRT(B xx= 2—4 x A х C))/ (2 * LN(X)) 
D. (DB—SQRT(B хх 2—4 х А * С) )/2 * LOGCX) 


6. Wb 5 A.B.IJ.K 的 类 型 符合 LN 规则 ,有 是 А = 5. 0.,В=2.0,1=7,7Ј=5,К=2, Ml 


表达 式 I/J * A/B x K 的 值 为 | 


А. 7.0 В, 5 С. 5.0 D. 7 
7. 下 列 程序 段 运行 后 输出 的 结果 是 


INTEGER M, N 
REAL X, Y 

M= 5/2 

N= 5.0/2 

X= 5/2 

Ү= 5.0/2 

PRINT x ,M, N, X, Y 


模拟 测试 2 1.105 


END 
A. 2.522.5 2.5 B. 222.0 2.0 C. 222.02.5 D. 222.52.5 
8. 下 列 FORTRAN95 常量 合法 的 是 , 
А. 129 1 B. 796 3 
E 2533 D. 'I' 'm a student, ' 
9. 下 列 FORTRAN?95 的 运算 符 中 优先 级 最 高 的 是 p 
A. + В. == C. . AND. D. xx 
READ( x ,10)K, J,A 
10 FORMAT((213,3X), E5. 2) 
END 
执行 语句 时 ,从 键盘 输入 876—42193671E4 后 ,A= | 
А. 193.67 В. 19367 С. 67100.0 D. 6.71 
11. А=2.5.В=17.5,С=5.0,Р=6. 0,1,=. TRUE. , М =. FALSE. , , 则 下 列 
FORTRAN KAA HNK. TRUE. 的 是 
A. А==3.5. AND. A+B < C+D B. C>D. OR. (. NOT. (A+B < D)) 
С. А <В. AND. B< А D. . NOT. L. OR. C= =D. AND. M 
12. 已 定义 A 为 整 型 变量 ,正确 表达 数学 关系 11 <A<15 的 FORTRAN 表达 式 
hi | 
A. 11<А<15 B. А>11.ОЕ.А<15 
C. . NOT. (А <=11. AND. А >=15) D. A>11. AND. А < 15 
13. 对 于 DO 语句 “DO I 一 13,3, 一 2”, 可 计算 出 循环 次 数 为 IX. 
A. 8 B. 7 C. 6 D. 5 
14. 下 列 程序 执行 后 ,输出 的 结果 为 И 
K= 0 
DO 1= 1,5 
00 J = 1-1, 4 
K-K*1 
ENDDO 
L-I 
ENDDO 
PRINT x , K, I, L 
END 
A. 15, 6, 5 В. 20,6,5 C. 15, 5,5 D. 20, 4,6 
15. 对 于 包含 12 个 整 型 数据 的 数据 序列 ,采用 简单 交换 排序 法 ,最 多 需要 比较 
X . 
A. ] B. 144 C. 11 D. 66 


16. 已 知 数组 A 定义 如 下 : 


INTEGER A(10) 
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要 存储 该 数组 需要 的 内 存单 元 大 小 为 TW. 
A. 40 B. 20 C. 30 D. 10 


17. КФ uA ETE B'FORTRAN","FOLLOW"."FOREVER","FORMAT", H. rH д 
大 的 是 
A. FORMAT B. FOREVER C. FOLLOW D. FORTRAN 
18. EWA PAUSE Ж: 
IMPLICIT REAL(M) 
IMPLICIT INTEGER(A) 


INTEGER C, M 
则 下 列 关 于 变量 类 型 的 说 明正 确 的 是 。 
А. 变量 MI 的 类 型 为 INTEGER В. 变量 M 的 类 型 为 REAL 
С. 变量 A5 的 类 型 为 INTEGER D. 变量 C3 的 类 型 为 INTEGER 
19. BA M 为 三 位 数 的 整 型 变量 , 则 下 列表 达 式 不 能 得 到 M 的 十 位 数字 的 
是 : o 
A. MOD(CM/10.10) В. MOD(CMOD(CM.,100)2.10) 
C. (M—M/100 x 1000/10 D. MOD(M.100)5/10 
—] qn 
20. 以 下 不 能 正确 求 出 分 段 函数 值 y= 二 40 xz=0 的 语句 段 是 。 
| ж`>0 
A. Y=0 B. IF (X> = 0) THEN 
IF (X> = 0) THEN IF(X 0) THEN 
IF (Х> 0) THEN ci 
Y=1 ELSE: 
ELSE Y=0 
Y= – 1 ENDIF 
ENDIF ELSE 
ENDIF usd 
ENDIF 
С. тър D. IF(X> 0) ТНЕМ 
IF(X> 0) Y=1 Y=1 
IF(X<0) Y= -1 ELSE IF(X == 0) THEN 
Y=0 
ELSE IF (X« 0) THEN 
Y= -1 
ENDIF 
21. 下 列 关 于 Compaq Visual Fortran 6 文件 扩展 名 的 说 明 ,不 正确 的 是 
A. 工作 空间 文件 扩展 名 为 . dsw B， 目 由 格式 源 文件 扩展 名 为 . for 
C. 目标 文件 扩展 名 为 . obj D. 项 目 空间 文件 扩展 名 为 . dsp 
22. 下 列 选项 说 法 正确 的 是 


А. пп — нн 
B. 'а'=='А' 
C. STRING(M.;N) 是 从 字符 串 STRING 的 M 位 开始 取 到 N 位 结束 的 N 一 M 十 1 


тї 
D. AFE 'I''m a teacher. ' KEX 15 

23. 下 列 关 于 数组 的 说 法 错误 的 是  . 
А. 数组 A( 一 1:1,5) 元 素 个 数 为 10 个 
B. 二 维 数 组 其 存储 结构 为 线性 表 
C. 二 维 数组 在 内 存 中 按 列 存储 


D. 在 FORTRAN95 中 数组 元 素 下 标 可 以 是 负数 或 堆 


24. FJI] FRAGE X iE 88 B ЛЕ À 
A. F(I,J,D =3 x I+ J xx 3+4 
Б. ЕХЕ УХУ Y 
C. F(A.B.C(D)=SIN(A)+SIN(B) +C(D 
D. F(A,B,C)= A xx BT+TS(A х A,B,C) 
. 下 列 关 于 子 程序 的 说 法 正确 的 是 


го 
сл 
= "> 


. KT JY 413 In] (EE АННУ T ELE D — ЖИП] 
Мн DJ Ж-Н. РАС ЖЕГУ HIST п] DLE НАЗА o 
C. 子 例 行 子 程序 没有 返回 值 , 故 不 能 与 主 调 程序 实现 数据 传递 


模拟 测试 2 


D. 子 程序 调用 时 , 实 参 数量 与 虚 参 数量 必须 相同 , 且 类 型 必须 一 一 对 应 


26. 下 列 程序 执行 后 ,输出 的 结果 为 ” o 


INTEGER A(16) 
DOI=1,16 
А(І) =I 
END DO 
P= 0 
CALL SUB(A,P) 
PRINT x ,P 
END 
SUBROUTINE SUB(B, 5) 
INTEGER B(4, 4) 
DOI-21,4 
DOJ-21,4 
ІЕ(МОр(І + Ј,3) = =0)S=5+B(I,J) 
ENDDO 
ENDDO 
END 


ып 


А. 40 В. 46 C. 4 
27. F ЖЖАП АУЕН) = 

А. 输入 ( 读 ) 文 件 是 将 数据 从 文件 传送 内 存 

B. 输出 ( 写 ) 文 件 是 将 数据 从 内 存 传送 到 文件 去 

C. 所 谓 打 开 文 件 就 是 实现 文件 与 设备 的 连接 

D. 关闭 语句 的 括号 内 ,应 该 写 上 将 机 


关闭 的 文件 名 说 明 符 


D. 31 
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CHARACTER х 5 А,В, Сх 10 
А = 'BEIJING' 


В = 'NEW' 
С = А//В 
А. C—'BEIJINEWL || | B. C='IJINGLILINEW' 
C. C—'BEIJII МЕМ ' D. C—'IJINGNEWI| || |' 
29. 下 列 说 法 正确 的 是 ° 


A. COMMON 给 同一 程序 模块 中 的 若干 变量 分 配 同 一 存储 单元 
B. EQUIVALENCE 给 不 同 程序 模块 中 的 变量 分 配 相 同 的 存储 单元 
C. 公用 区 中 的 变量 按 顺 序 对 应 ,不 是 按 名 字 对 应 
D. 公用 区 中 有 对 应 关系 的 变量 的 数据 类 型 必须 一 致 

30. 设 有 以 下 语句 ， 


TYPE STUDENT 
CHARACTER NAME 
REAL SCORE(5) 
ENDTYPE 
TYPE( STUDENT ) : : STU 
下 面 叙 述 中 正确 的 是 , 
A. STUDENT 是 结构 体 变 量 
B. STU 是 TYPE STUDENT 类 型 的 变量 
C. 可 以 用 STU 定义 结构 体 变 量 
D. STUDENT 是 派生 类 型 ,STU 是 结构 体 变量 


二 、 填空 题 (每 空 2 分, 共 20 分 。 请 将 以 下 程序 空缺 补充 完整 ) 
1. 以 下 程序 将 输入 的 任意 字母 大 写 转 换 成 小 写 、 小 写 转换 成 大 写 并 输出 。 


CHARACTER х 1 C 
READ x ‚С 
SELECT CASE(C) 
CASE('a':'z') 
(1) 

PRINT x ‚С 

CASE('A':'Z') 
(2) 

PRINT x ,C 
END SELECT 
END 


2. 输入 一 个 整数 ,输出 其 位 数 。 


INTEGER :: N,K=0 


REAN x N 

DO WHILE(N > 0) 
K= (3) 
N= (4) 


(5) 
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END DO 
END DO 
AVERAGE = SUM/20 
DO I=1, 4 
DOJ=1,5 
IF( (8) )А(І,Ј) = 0 
END ро 
END DO 
PRINT x ,A 
END 


4. 以 下 程序 通过 递归 调用 求解 n1。 


RECURSIVE FUNCTION FAC(N) RESULT( FACI ) 
IF (N= = 1) THEN 


(3) 
ELSE 
(10) 
ENDIF 
END 


PROGRAM FAC PRO 
WRITE( х, x )'PLEASE INPUT А NUMBER...' 
READ( « , x )N 
WRITE( х, x )N,'! = ', FAC(N) 

END 


三 、 阅 读 程序 ,与 出 程序 的 运行 结果 (每 题 3 分 , 共 15 分 ) 


]. PARAMETER(N = 18) 
INTEGER: :SUM = 0 
DO I=2,N-1 
IF(MOD(N, I) == 0)SUM = SUM + I 
ENDDO 
PRINT x , SUM 
END 


2. INTEGER A(3,3) 
DATA A/3 * 1,3 x 2,3 x 3/ 
PRINT 10,A 
PRINT 10, ((А(І, Ј),Ј=1,3),1=1,3) 
10 FORMAT(1X, 313) 
END 
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3. INTEGER A(6) 

COMMON A 

DO K= 1,6 
A(K) =K 

ENDDO 

CALL P2 

END 

SUBROUTINE P2 
INTEGER B(3,2) 
COMMON B 
PRINT 20, ((B(I1,J),J721,3),I172 1,2) 
20 FORMAT( 2X, 312) 

END 


4. 5= 0 
DO I= 1,10 
S-S41/I 
ENDDO 
PRINT +, "S=" S 
END 


. PARAMETER(N = 5) 
DO I-1,N 
А(1,1) =1 
A(I,I)21 
ENDDO 
DO I23,N 
DOJ-22,N-1 
А(І,Ј) = А(1-1,Ј) + A(I— 1,J0— 1) 
ENDDO 
ENDDO 
DO I-1,N 
PRINT 10, (A(I,J),J 2 1, I) 
ENDDO 
10 FORMAT(1X,1013) 
END 


四 、 编 程 题 (第 1 小 题 7 分 ,第 2 小 题 8 分 ,第 3、4 小 题 各 10 分, 共 35 分 ) 
1. 编程 输出 如 下 МАТ. МУНК. МАМ 由 键盘 输入 。 
ааа а аа возо заав 1 


сл 


| 
І 
I 
І 
I 
І 
I 
І 
І 
І 
1 
І 


2. 判断 某 三 位 整数 是 否 是 水 仙 花 数 。 
3. Ж 1 一 1000 范围 内 的 素数 之 和 。 
4. FÉ n ÍT n 列 的 二 维 数 组 两 对 角 线 上 元 素 之 和 。 


TRU JU З 


、 选 择 题 ( 在 每 小 题 给 出 的 4 个 管 案 选项 中 只 有 一 项 是 正确 的 , 写 出 正确 的 选项 。 每 
题 ] 25, 30 分 ) 
1. 在 Visual Fortran 的 编 详 环境 中 ,通过 build 形成 的 可 执行 文件 的 文件 名 


A : 
A. 源 程 序 的 文件 名 B. 项 目 名 
C. 工作 空间 名 D. 目标 文件 文件 名 
2. 在 FORTRAN 的 变量 类 型 说 明 语 句 中 没有 А 
A. INTEGER 语句 B. REAL 语句 
C. CHAR i& D. LOGICAL 语句 


3. FORTRAN95 字符 集 是 指 程序 代码 中 可 出 现 的 字符 ,下 列 选 项 中 全 属于 
FORTRAN95 字符 集 的 是 І 


Aí 17 = B+ |+ & CX & ! /D&E @ $ > 
4. 下 面 是 FORTRAN95 的 合法 变量 
A. D ABI B. X— Y C. a%score D. 12 month 


. 下 列 说 法 中 ,正确 的 是 
A. Æ FORTRAN 程序 中 ,各 类 语句 的 位 置 是 任意 的 
B. Æ FORTRAN 中 变量 必须 先 定 义 .后 使 用 
C. FORTRAN 程序 的 书写 格式 有 自由 格式 和 固定 格式 两 种 
D. Æ FORTRAN 中 “==” 表 示 相 等 的 意思 ,如 A—B 表示 变量 A 与 B 的 值 相等 


6. 与 数学 表达 式 аэ a] 对 应 的 正确 的 FORTRAN95 表达 式 是 | 


A. 1/NX * Y—2+ ABS(X- 1) B. (1/ND * X xx Ү-Е2+ ABS(X- 1) 
C. (1.0/ND * X ** (Y+2)+ABS(X—1) D. (1/0) * Xxx (Y+2) РАВЅ(Х— 1) 
7. FIRRA rh pa P< ЛЕ А 


“л 


А. М= KINDCA) В. T=SQRT(4. 0) 
C. Y—(2,5* A,2) D. MOD(A1,A2) 
8. 下 列 不 是 FORTIRAN % Аул А 
А, (3.0.4.0) B. 3. 14160-00 Lx: D. 'Very good!' 


9, AFE A.B.I.J.K 的 类 型 符合 LEN. E A—5.0.B—2.0,1— —1.,J —5.K—4, 


则 表达 式 A/J 十 I/K x B 的 值 为 B 


А. 1.0 D. 1 Es. ? D. 0.5 


ып 
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10. 结构 化 程序 设计 有 三 种 基本 结构 ,下 列 不 属于 三 种 基本 结构 的 是 А 
A. 顺序 结构 В. 选择 结构 C. 循环 结构 D. MEH 
11. FORTRAN95 目 由 格式 规定 , 当 一 个 语句 一 行 写 不 完 时 需要 使 用 续 行 标记 ,下 
是 FORTRAN95 的 续 行 标记 。 


A. &. B. ; C. ! D + 

12. 下 列表 达 式 值 为 .TRUE. 的 是 。 
А, 6>2x*3.5. AND. SQRT(4.5)> 2 B. NOT. С. FALSE.. AND.. TRUE. ) 
C 2,57151.08. HL. (2.939.54— —0L 545.5) 


13. 下 列 有 关 逻 辑 型 运算 符 和 逻辑 值 的 叙述 中 ,错误 的 是 > 
A. 逻辑 真 值 只 有 两 个 , 即 真 (. TRUE. ) 和 假 (. FALSE.) 
B. A.B.C.D 均 为 实 型 变量 ,依据 A,B,C. D 的 取 值 计算 表达 式 A 十 B/==C 十 DD， 
结果 值 为 . TRUE. 或 . FALSE. 
. аша аш 以 用 关系 运算 符 比 较 相 等 或 不 


C 


D. Анея TX GENTE. 关系 运算 符 优先 级 高 于 逻辑 运算 符 
14. 正确 表达 XE (—1. 2,3. 5 | 的 表达 式 是 | 
A. 3.5>=X>—1.2 B. X<=3.5. OR. X>—1. 2 
C. X<=3.5. AND. X>—1. 2 D. X«—1.2. AND. A»3.5 
15. 运行 下 列 程序 后 ,输出 的 结果 是 
INTEGER М, N 
READ * , M, N, N, M 
M=M+N 
N=M+N 
PRINT +, M, N 
END 


从 键盘 输入 : 1.2.3.4 
А. 12 B. 35 C. 43 D. 7 10 
16. 阅读 下 列 FORTRAN f/f. 


М= 0 
DO K=1,3 

N= М+К 
ENDDO 
ERINT x N K 
END 
执行 上 述 程序 后 ,输出 的 结果 为 “，。 

A. 33 B. 34 C. 63 D. 6 4 

17. 以 下 关于 CASE 选择 结构 的 四 种 结论 中 ,正确 的 是 (f Q 


A. CASE 结构 不 能 租 套 定义 , 即 CASE 选择 结构 内 不 得 再 包含 CASE 选择 结构 
B. CASE 的 条 件 选 择 中 出 现 冒 号 (如 1:5) 时 表示 可 取 值 的 范围 
C. CASE 的 条 件 选 择 表 达 式 不 能 是 字符 类 型 
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D. CASE 选择 结构 内 必须 取 DEFAULT 作为 条 件 选 择 的 最 终 分 支 
18. 阅读 以 下 程序 段 : 


CHARACTER A 
А = CHAR( ICHAR( 'K' ) + ICHAR( 'a' ) - ICHAR('A')) 
PRINT х, A 
ШИНЕ) A Oy o 
А. А B. k С. K D. a 
19. 对 于 DO 语句 “DO EN-—1.5,5.7.2. 7", n i 4x tH f P CC И 
A. 1 次 B，2 次 C. 3 次 D. 4 次 
20. 下 列 程序 执行 后 ,输出 的 结果 为 à 
K= 0 
DOJ=1,8 
K= J 
ENDDO 
PRINT >= , K,J 
END 
A. 8. 9 B. 8, 8 C. 9,9 D. 9,8 
21. CYCLE 语句 的 使 用 范围 只 能 在 
А. H IF 结构 内 B. DO 循环 结构 内 
С. H CASE 结构 内 D. WHERE 结构 内 


22. і IE J^REALCOKIND-—8),DIMENSION(1:10) ;，A,”, 该 语句 " 
A. 说 明 A 是 复 型 类 型 数组 ,共有 10 4-2 #H Jú ж 
В. 说 明 A 是 实 型 类 型 数组 ,共有 20 个 数组 元 素 
С. 说 明 A 是 双 精 度 类 型 数组 ,共有 10 个 数组 元 素 
D. 为 无 效 说 明 语 人 句 
23. 已 知 数组 说 明 REAL A(5,4) ,数组 元 素 A(2,4) 是 数组 的 第 W ir sN 
A. 8 B. 9 C. 16 D. 17 
24. 下 列 有 关 FORTRAN95 数组 的 说 法 正确 的 是 
A. 数组 定义 语句 可 以 定义 任意 维 的 数组 
B. 数组 元 素 下 标 可 以 出 现 负 值 
С. DIMENSION 语句 可 说 明 数 组 的 四 个 信息 
D. 在 同一 程序 单元 中 ,数组 名 可 以 与 变量 名 相同 
25. 有 语句 为 : 
INTEGER А(3,2) 
READ x ,A 
如 果 从 键盘 输入 的 数据 是 “10,20,30,40,50,60”, 则 A 数组 的 逻辑 结构 是 o 
А. 10 20 30 B. 10 30 50 
40 50 60 20 40 60 
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С. 10 20 D. 1040 
30 40 20 50 
90 60 30 60 


26. 下 列 程序 的 输出 结果 是 ë o 


INTEGER: : М(3,3),5= 0 
DATA M/1,2,3,4,5,6,7,8,9/ 
DOK21,3 

S= S+M(K,K) 
ENDDO 
PRINT x ,S 
END 


A. 12 B. 14 C. 15 D. 18 
27. 下 列 程序 的 输出 结果 是 | 


INTEGER:: M(3,3) 

FORALL(I-21:3,J7-21:3,I*J^» =4) 
M(I,J)= I+J 

END FORALL 

PRINTx , (M(2,J), J= 1,3) 

END 


A. 345 B. 040 C234 D. 400 
28. 阅读 下 列 程序 ,程序 的 运行 结果 是 š 


K(X,Y) =X/Y+X 
A= – 2.0 

B= 4.0 

B= 1.0+K(A,B) 
PRINT 10,B 

10 FORMAT( 1X, F4.1) 
END 


А. —1.0 В. 1.0 С. —2.0 D. 2.0 
29. 可 调 数 组 中 出 现 。 

A. 只 能 在 主 程序 В. 只 能 在 子 程序 

C， 只 能 在 主 程序 和 子 程序 D. 可 以 在 主 程序 、 子 程序 和 和 模块 
30. 下 列 程序 执行 后 ,输出 的 结果 为 


INTEGER A(7) 

DATA А/1,2,3,4,5,6,7/ 

Р= 0 

CALL SUB(A, 4,P) 

PRINT x ,了 

END 

SUBROUTINE SUB(B, N,S) 
INTEGER B(N) 
DOJ-21,N 

S-S-*B(J) 
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ENDDO 


A. 6 B. 10 C. 21 D. 28 
二 、 填空 题 (每 空 2 分 , 共 20 分 。 请 将 以 下 程序 空缺 补充 完整 ) 
1. 回 文 数 是 指正 读 和 反 读 都 是 一 样 的 正 整数 ,例如 66,121 等 , 求 L10,500j 区 间 内 的 回 
文 数 的 个 数 K. 


K= (1) 
DOI=10,500 
IF( (2) ) THEN 
I1 = I/10 
ELSE 
І1 I/100 
ENDIF 
12 = MOD(I,10) 
IF(I1 = = I2)K= (3) 
ENDDO 
PRINT x , K 
END 


2. 以 下 主 程序 通过 调用 子 程序 的 形式 对 3 行 、4 列 共 12 个 数据 以 列 的 次 序 进行 升序 排 
序 , 子 程序 中 排序 方法 采用 选择 法 。 


INTEGER A(3,4) 
READ х, А 
CALL SORT( A, 3, 4) 
DOI=1,3 
PRINTx , (A(I,J),J 2 1,4) 
ENDDO 
END 
SUBROUTINE SORT(A,M, М) 
INTEGER A(M x N) 
DOI-2-1,M«*«N-1 
а) _ 
DOJ= I+1,Mx N 
IF ( (5) үре 
ENDO = 
T-A(T) 
(6) 
А(Р) =T 
ENDDO 
END 


‚ 一 个 学 生 的 信息 包括 其 学 号 、 姓 名 、5 门 课程 的 成 绩 、 总 成 绩 和 名 次 ,从 数据 文件 
SHUJUI. TXT 中 谈 取 相关 信息 RAI 50 个 学 生 中 每 个 学 生 的 总 成 绩 及 其 名 次 。 


TYPE STUDENT 
INTEGER NUM 
CHARACTER x 6 NAME 
REAL SCORE(6) 
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INTEGER ORDER 
END TYPE 
(7) 
OPEN( (8) ) 
DO 1= 1,50 
READ(5,10) STU(I) 
DOJ=1,5 
STU(I). SCORE(6) = STU(I).SCORE(6) + STU(I).SCORE(J) 
ENDDO 
ENDDO 
DOI=1,50 
K= 0 
DO J = 1,50 
IF( (9) )K-K*1 
ENDDO 
(10) 
ENDDO 
PRINT x , (STU(I), I7 1,50) 
CLOSE(5) 
10 FORMAT( I8, 2X, A6, 5F5. 1) 
A 


三 、 阅 读 程序 , 写 出 程序 的 运行 结果 (每 题 3 分 , 共 15 分 ) 


. ІМТЕСЕВ::Е = 1 
БКЕАГ,::5 = 0. 0 
DO K= 1,3 

Е= Ех К 
S=S+1/F 
ENDDO 
PRINT x ,F,S 
END 


= 


2. CHARACTER A(4) 
DATA А/'1','2','3','4'/ 
DOI-1,4 
PRINT* , (А(Ј),Ј = L, 4), (A(K), K- 1,I- 1) 
ENDDO 
END 


570.0 


I2I-1 
IF(M0D(I,2)/20) S=S+I 
IF(MOD(I,2) == 0) CYCLE 
ІЕ(1>= 9) EXIT 

ENDDO 

PRINT 10,1,5 

10 FORMAT(I2,F5.1) 

FND 
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4, EXTERNAL Р 
CALL S(P,1.0,2.0, T) 
PRINT x ,T 
END 


FUNCTION P(X, Y) 
P= 2х (X+Y) 
END 


SUBROUTINE 5(Е, A, B, C) 
C- F(A, B) 
C= F(B,C) 

END 


5. RECURSIVE FUNCTION FIB(N) RESULT(F) 
INTEGER N 
IF(N == 1)THEN 
F= 1 
ELSE IF(N == 2)THEN 
F= 1 
ELSE 
F- FIB(N- 1) * FIB(N- 2) 
ENDIF 
END 


PROGRAM MAIN 
PRINT х , FIB(5) 
END 
、 编 程 题 (第 1 小 题 7 分 ,第 2 小 题 8 分 ,第 3.4 小 题 各 10 分 , 共 35 27) 
1. Л х, КАБЕР у 的 值 , 并 输出 y 值 。 
жт —т—2 ж<—1 
у = /sin(z?—1) —1xrzx1l 
| 43. 
2. 计算 1! 十 2! 十 3! 十 … 十 NI 的 值 ,N 由 键盘 输入 。 
3. 编写 程序 ,输出 杨辉 三 角形 的 前 N 行 ,N 由 键盘 输入 。 


] 

] 1 

1 2 1 
13 3 l 
l 4 6 4 1 


15 10105 1 
4. 编写 用 梯形 法 求 定 积 分 的 子 程序 ,调用 该 子 程序 求解 函数 y= 2 * x74 ЖЕ 0,2 JP [н] 
的 定 积 分 。 
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1. 简 述 计算 机 硬件 的 基本 构成 和 工作 原理 。 

^t. 计算 机 硬件 主要 由 CPU( 运 算 器 、 控 制 器 ) .存储 器 ,输入 设备 和 输出 设备 等 部 分 构 
成 。 数 据 和 程序 都 以 二 进 制 形式 存储 在 主 存储 器 中 ,CPU 通过 访问 主 存储 器 来 取得 待 执行 
的 指令 和 待 处 理 的 数据 ,这 称 为 汉 。 诺 依 曼 原理 。 

其 简单 工作 原理 为 : 首先 由 输入 设备 接收 外 界 信息 (程序 和 数据 ) ,控制 器 发 出 指令 将 
数据 送 入 (内 ) 存 储 器 ,然后 向 内 存储 器 发 出 取 指令 命令 。 在 取 指令 命令 下 ,程序 指令 逐条 送 
入 控制 器 。 控 制 器 对 指令 进行 译 码 ,并 根据 指令 的 操作 要 求 ,向 存储 器 和 运算 器 发 出 存 数 、 
取 数 命令 和 运算 命令 ,经 过 运算 器 计算 后 把 计算 结果 存在 存储 器 内 。 最 后 在 控制 器 发 出 的 
取 数 和 输出 命令 的 作用 下 ,通过 输出 设备 输出 计算 结果 。 

2. 简 述 计算 机 系统 构成 。 

答 ; 计算 机 系统 由 计算 机 硬件 系统 和 软件 系统 两 部 分 组 成 ，。 

硬件 是 指 组 成 计算 机 的 各 种 物理 设备 ,也 就 是 那些 看 得 见 、 摸 得 着 的 实际 物理 设备 , 包 
括 CPU ,存储 器 和 外 部 设备 等 ， 

软件 就 是 为 运行 .管理 和 维护 计算 机 而 编制 的 各 种 程序 .数据 和 文档 的 总 称 。 软 件 又 包 
括 系统 软件 和 应 用 软件 。 系 统 软件 是 指控 制 和 协调 计算 机 及 其 外 部 设备 ,支持 应 用 软件 的 
开发 和 运行 的 软件 。 应 用 软件 是 指 用 户 为 解决 各 种 实际 问题 而 编制 的 计算 机 应 用 程序 及 其 
fi XR. 

3. 什么 是 机 器 语言 .汇编 语言 和 高 级 语言 ? 

ж. 机 器 语言 是 由 二 进 制 符号 “0” 和 “1” 按 照 确定 的 方式 排列 组 合 而 成 的 语言 ,用 机 器 
语言 编写 的 程序 能 够 被 计算 机 直接 识别 和 执行 。 

汇编 语言 是 用 助 记 符 来 表示 机 器 语言 中 的 二 进 制 指令 的 语言 。 

机 器 语言 和 汇编 语言 称 为 低级 语言 。 

高 级 语言 主要 是 相对 于 汇编 语言 而 言 , 它 是 较 接 近 自 然 语言 和 数学 公式 的 编程 语言 , 基 
本 脱离 了 机 器 的 硬件 系统 ,用 人 们 更 易 理 解 的 方式 编写 程序 。 相 对 于 低级 语言 而 言 , 它 并 不 
特 指 其 一 种 县 体 的 语言 ,而 是 包括 很 多 编程 语言 ,如 C Java, C++, Visual Basic, Visual C++, 
PHP,Python; FORTRAN 等 。 

4. 简 述 高 级 语言 的 编译 和 解释 过 程 。 

t. 编译 过 程 是 由 编译 器 将 源 程序 完整 地 翻译 成 等 价 的 机 器 语言 程序 (目标 程序 ) А 
后 让 计算 机 执行 ,整个 源 程序 一 旦 翻译 完毕 ,就 可 以 多 次 执行 目标 代码 ,而 不 再 需要 编译 器 

解释 过 程 是 由 解释 器 直接 分 析 一 句 就 执行 一 句 ,不 生成 目标 文件 ,如 果 遇 到 错误 .中 止 
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执行 , 则 修改 后 从 头 再 解释 一 句 就 执行 一 句 。 
5. 什么 是 程序 和 程序 设计 ? 
2, 程序 是 由 多 条 指令 按 次 序 排列 而 成 并 交 给 计算 机 逐条 执行 的 指令 序列 。 
程序 设计 是 指 从 问题 分 析 到 编码 实现 的 计算 机 解 题 全 过 程 。 它 是 软件 构造 活动 中 的 重 
要 组 成 部 分 。 程 序 设 计 往 往 以 某 种 程序 设计 语言 为 工具 ,给 出 这 种 语言 的 程序 。 程 序 设 计 
过 程 应 当 包 括 分 析 、 设 计 、 编 码 .测试 . 排 错 等 不 同 阶段 。 
6. аса 
: 计算 就 是 针对 一 个 问题 ,设计 出 解决 问题 的 程序 (指令 序列 ) ,并 由 计算 机 来 执行 这 
从 而 解决 问题 的 过 程 。 
7. 么 是 计算 思维 ? 计算 思维 建立 的 原则 是 什么 ? 计算 思维 的 基本 应 用 有 哪些 ? 
: 计算 思维 是 运用 计算 机 科学 的 基础 概念 进行 问题 求解 、 系统 设 计 以 及 人 类 行为 理 
каше NE ашыш. 
计算 思维 建立 的 基本 原则 是 : 既 要 充分 利用 计算 机 的 计算 和 存储 能 力 ,又 不 能 超出 计 
算 机 的 能 力 范围 。 
计算 思维 的 基本 
算 性 和 算法 复杂 性 。 


应 用 有 : 通过 抽象 进行 问题 的 表示 ; 算法 设计 ; 编程 技术 ; 考虑 可 计 


8. 什么 是 算法 ? 简 述 算法 的 基本 特征 。 
Ж. 算法 是 为 解决 特定 问题 而 设计 好 的 ,有 限 的 .明确 可 行 的 步骤 序列 。 
算法 的 基本 特征 : (1) 有 穷 性 ; (2) 确 定性 ; (3) 可 执行 性 ; (4) 有 大 于 等 于 零 个 数据 输 


As (5) 至 少 有 一 个 数据 输出 。 

9. 简 述 常用 的 程序 设计 方法 。 

答 : 常用 程序 设计 方法 主要 包括 : 结构 化 程序 设计 方法 、 模 块 化 程序 设计 方法 和 面 问 
对 象 程序 设计 方法 等 。 

结构 化 程序 设计 方法 使 用 规范 的 控制 流程 来 组 织 程序 的 处理 步骤 ,形成 层次 清晰 、 边 界 
分 明 的 结构 化 构造 ,每 个 构造 具有 单一 的 人 口 和 出 口 。 方 法 中 的 三 种 基本 控制 结构 是 顺序 
结构 , 1ТЕ 2л J.B YT. 

模块 化 程序 设计 方法 采用 从 全 局 到 局 部 的 自 项 癌 下 设计 方法 ,将 к 程序 分 解 成 许多 
较 小 的 模块 ,解决 了 所 有 底层 模块 后 ,将 模块 组 装 起 来 构成 最 终 程序 。 每 个 模块 独立 命名 ， 
通过 模块 名 来 调用 .访问 和 执行 ,模块 间 相 互 协调 ,共同 完成 特定 任务 。 

面 回 对 象 编 程 方法 以 数据 和 操作 融 为 一 体 的 对 象 作 为 基本 单位 来 描述 复杂 系统 ,通过 
对 象 之 间 的 相互 协作 和 交互 实现 系统 的 功能 。 

10. 用 流程 图 或 N-S 流程 图 描述 下 列 问题 的 求解 算法 。 

(1) Ж ax! d brdcc-—0 的 根 。 分 别 考虑 4=5°*—А4ас 大 于 0、 等 于 0 和 小 于 0 三 种 情 癌 。 

本 题 的 N-S 流程 图 和 传统 流程 图 分 别 如 题解 图 1. 1 .题解 图 1.2 所 示 。 

(2) 输入 5 个 数 , 找 出 最 大 的 一 个 数 并 输出 。 

本 题 的 NS 流程 图 如 题解 图 1.3 所 示 。 

(3) 输出 2000—2200 年 中 的 所 有 图 年 。 国 年 的 条 件 是 : 能 被 4 整除 但 不 能 被 100 整 
в. — 100 — 400 — 


习题 1 解析 129 


k Aa. b. с 


b^-4ac >d 


输出 实 根 x1 、x2 | 输出 1 个 实 根 x 输出 虚 根 x1、x2 


题解 图 1.1 习题 1 第 10(1) 题 N-S 流程 图 


>02 no, 6 


+Ь+У/ |dii 


=x] 
2a 


性 出 实 根 xl1 和 x2 
输出 一 个 实 根 x 


БИНЕ х1 х2 


1.2 习题 1 第 10(1) 题 传统 流程 图 


1241 FORTRAN95 程序 设计 实验 指导 与 测试 


输入 5 个 数 到 数组 4 中 
А(1)5МАХ 


| acce eti 


输出 MAX 


题解 图 1.3 习题 1 第 10(2) 题 N-S 流程 图 


YEAR=2000 


Bc — -дсаза YEAR 能 被 400 整 除 ? Г | 


YEAR 能 被 4 整除 ? | 
bii YEAR = 


ҮЕАК=ҮЕАК+1 


题解 图 1.4 习题 1 第 10(3) 题 N-S 流程 图 1 
本 题 中 判断 国 年 的 条 件 可 以 通过 一 个 逻辑 表达 式 给 出 ,流程 图 可 简化 为 题解 图 1.5. 


YEAR=2000 


ҮЕАК:=2200 


YEAR EERE? 


ТИ И 
YEAR-YEAR-1 


题解 图 1.5 习题 1 第 10(3) 题 N-S 流程 图 2 


(4) 求 1 十 2 十 3 十 … 十 50 的 值 , 并 输出 。 
Aki B N-S 流程 图 如 题解 图 1.6 所 示 。 
(5) 输入 一 个 班 30 个 同学 的 一 门 课 成 绩 , 求 平均 分 、 最 高 分 .不 及 格 人 数 和 不 及 格 率 。 
本 题 的 N-S 流程 图 如 题解 图 1.7 所 示 。 


SUM=SUM+/ 
输出 SUM 


题解 图 1.6 习题 1 第 10(4) 题 N-S 流程 图 


输入 第 i 个 成 绩 到 S(D 中 
SUM=SUM-+S(D) 
| AVE=SUM/30 


— 


ET 


输出 平均 分 AVE 、 最 高 分 MAX 
输出 不 及 格 人 数 N、 不 及 格 率 屎 


题解 图 1.7 习题 1 第 10(5) 题 N-S 流程 图 
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习题 2 解析 


. FORTRAN 声言 的 主要 特征 是 什么 ?” 催 述 FORTRAN 语言 的 发 展 过 程 。 

Æ. FORTRAN 语言 是 世界 上 最 早出 现 的 计算 机 高 级 程序 设计 语言 ,最 大 特性 是 接近 
数学 公式 的 自然 描述 ,在 计算 机 里 具有 很 高 的 执行 效率 。 它 易学 ,语法 严 讶 ,可 以 直接 对 算 
阵 和 复数 进行 运算 。 它 自 诞生 以 来 广泛 地 应 用 于 数值 计算 领域 ,积累 了 大 量 高 效 而 可 靠 的 
源 程序 。 很 多 专用 的 大 型 数值 运算 计算 机 针对 FORTRAN 做 了 优化 ,广泛 应 用 于 并 行 计算 
和 高 性 能 计算 领域 。FORTRAN90、FORTRAN95、FORTRAN2003 的 相继 推出 使 
FORTRAN 语言 具备 了 现代 高 级 编程 语言 的 特性 。 

FORTRAN 语言 的 发 展 过 程 略 。 

2. FORTRAN95 的 主要 特征 是 什么 ? 

答 : (1) 增 加 了 许多 具有 现代 特点 的 项 目 和 语句 ,用 新 的 控制 结构 实现 选择 与 循环 操 
作 ,真正 实现 了 程序 的 结构 化 设计 。 

(2) 增加 了 结构 块 .模块 及 过 程 调用 的 灵活 性 ,使 源 程序 易 读 、 易 维护 。 

(3) 吸收 了 C, Pascal 语言 的 长 处 ,淘汰 或 拟 淘 汰 原 有 过 时 的 语句 ,加 入 现代 语言 的 
特色 。 

(4) 在 数值 计算 的 基础 上 ,进一步 发 挥 了 计算 的 优势 ,增强 了 并 行 计 算 功 能 。 新 增 了 许 
多 先进 的 调用 手段 ,扩展 了 操作 功能 。 

(5) 增加 了 多 字 节 字符 集 的 数据 类 型 及 相应 的 内 部 函数 。 人 允许 在 字符 数据 中 选取 不 同 
种 别 ,在 源 程 序 字 符 串 中 可 以 使 用 各 国文 字 和 各 种 专用 符号 ,对 非 英 语 国家 使 用 计算 机 提供 
了 更 大 .更 有 效 的 支持 。 

(6) FORTRAN 早期 版 本 的 程序 仍 能 在 FORTRANO95 编译 系统 下 运行 , 即 具有 向 下 
兼容 性 。 

3. 简 述 FORTRANO95 的 程序 结构 。 主 程序 单元 和 其 他 程序 单元 的 区 别 是 什么 ? 

答 : 一 个 FORTRAN 程序 由 一 个 或 春 干 个 程序 单元 组 成 。FORTRAN95 的 程序 单元 
包括 主 程序 单元 、 外 部 子 程 序 单 元 ,模块 单元 ,数据 块 单元 。 

一 个 程序 中 必须 有 且 只 能 有 一 个 主 程序 单元 。 主 程序 单元 可 以 调用 其 他 程序 单元 ,但 
不 能 被 调用 。 程 序 都 是 从 主 程序 单元 的 第 一 个 可 执行 语句 开始 执行 的 ,最 后 回 到 主 程序 单 
元 结束 运行 。 

4. 什么 是 Microsoft Developer Studio? ТЕУ Compaq Visual Fortran 6. 5 及 FORTRAN95 
有 何 关 系 ? 

答 : Microsoft Developer Studio 是 可 视 化 集成 开发 环境 。 它 将 文本 编辑 器 资源 编辑 
器 ,项 目 创建 工 具 、 增 量 连 接 器 , 源 程序 浏览 右 程序 调试 器 信息 查询 器 等 集成 在 一 起 ,以 可 


视 化 形式 进行 程序 的 编辑 .编译 .调试 .运行 等 。 

Visual Fortran 6. 5/6. 6 rB. Visual Fortran 被 组 合 ( 集 成 ) 在 Microsoft — Studio 的 
集成 开发 环境 (IDE) 中 ,FORTRAN95 可 以 直接 在 其 上 进行 编辑 编译、 构建 和 运行 

5. Microsoft Developer Studio 引入 工作 空间 和 项 目的 概念 目的 是 什么 ? 用户、 工 作 空 
间 .项 目 及 文件 的 关系 是 什么 ? 

答 : 主要 目的 是 合理 地 组 织 .管理 文件 ,其 功能 类 似 于 Windows 'P B SERE Bas. H 
户 可 根据 所 开发 的 程序 类 型 创建 多 个 工作 空间 (类 似 文件 夹 ), 每 一 个 工作 空间 根据 要 求 可 
创建 多 个 项 目 ( 类 似 子 文件 夹 ) ,每 个 项 目 内 又 可 创建 生成 有 关 源 程序 文件 、 资 源 文件 或 其 他 
相关 文件 。 

6. 写 出 FORTRAN95 的 源 程序 文件 .目标 文件 和 可 执行 文件 的 扩展 名 。 

2, FORTRANO95 的 源 程序 文件 扩展 名 为 f90 ,目标 文件 扩展 名 为 obj, 可 执行 文件 的 
扩展 名 为 exe。 

7. 简 述 FORTRAN 语言 程序 的 上 机 步骤 。 

答 ; D 进入 FORTRAN 集成 开发 环境 ; 

创建 新 的 项 目 ; 

© 在 项 目 中 创建 新 的 FORTRAN 源 程序 ; 

输入 程序 ; 

编译 .构建 源 程序 ,生成 可 执行 文件 ; 

运行 程序 。 


1. FORTRAN95 的 字符 集 包 括 哪 些 内 容 ? 

ж. FORTRAN95 的 字符 集 包 括 : 

(1) 英文 字母 a-z 及 А-7; 

(2) 阿拉 人 数字 0-9; 

(3) 22 个 特殊 字符 ,如 下 : 

= + — x / С); . s f l 

; 0 & < > ? $ 空格 (Tab) 

2. 判定 下 列 标识 符 中 哪些 是 合法 的 .哪些 是 非法 的 ,并 解释 非法 标识 符 的 错误 原因 。 


(1) А12С (2) С%50 (3) DZD—1 (4) SIN(X) 
(5) D. 2 (6) 'ONE' (7) AX 12 (8) 23CS 
(9) PRINT (10) 兰州 (11) C$ D (12) HEL 


答 ,合法 标识 符 是 ; (1) Al2C,(7) АХ 12,(9) PRINT,(11) C$D. 
韭 法 标识 符 如 下 表 所 示 。 


非法 标识 符 错误 原因 
(2) C%50 含 % 非 法 字符 
(3) DZD 一 1 含 一 非法 字符 
(4) SIN(X) JE by df BS 25 
(5) D.2 含 . 非法 字符 
(6) 'ОМЕ' JEU T] EE 
(8) 23CS 首 字 符 不 是 字母 
(10) 兰州 汉语 字符 
(12) HEL 首 字 符 不 是 字母 


3. FORTRAN95 的 基本 数据 类 型 有 哪些 ? 

答 : FORTRAN95 的 基本 数据 类 型 包括 整 型 、 实 型 . 双 精 度 性 、 复 型 .字符 型 .逻辑 型 。 

4. 简 述 符号 常量 与 变量 的 区 别 。 

AS IE 过 程 中 ,其 值 不 能 被 改变 的 量 称 为 常量 。 用 一 个 标识 符 代 表 一 
的 符号 , 称 为 符号 和 常量。 编译 时 把 所 有 的 符号 常量 都 替换 成 指定 的 常量 (字符 串 )， nie т 
канан нне, к 内 其 值 不 能 改变 和 赋值 。 而 变量 代表 内 存 
中 具有 特定 属性 的 一 个 存储 单元 , 它 用 来 存放 数据 ,也 就 是 变量 的 值 ,在 程序 运行 期 间 ,这 些 
值 是 可 以 改变 的 。 

5. 下 列 数据 中 哪些 是 合法 的 FORTRAN95 常量 ? 


习题 3 解析 = 

(1) 34 (2) 3. 1415926 (3) —129 1 (4) 3.96e—2 

(5) 4-256 3 (6) PARAMETER(n- 10) (7) 'CHINA' 

(8) “ФЕ” С а (10) f (11) . TURE. 

(12) „23 (13) 23. (14) 3.96 х e—2 (15) 3.96e— 2.5 

(16) . e—2 

A. 合法 的 FORTRAN95 常量 有 : 

(1) 34,(2)3. 1415926, (4)3. 96e 一 2,(6)PARAMETER (п = 10), (7) ' CHINA ' , 
(8)“ 中 国 ”,(9)(2.3,5.7),(11).TURE. ,(12). 23, (13)23. 

6. ПЯ A—2,B—3,C—5.0. H I—-2,] —3,K Р ЈАКНИ. 

(D AxwB+C/I (2) Ах (В+С) (3) A/I/] (4) A wx J xx I 

(5) A x B/C (6) Aw (Bxx I/J) (7) Ах B xx А xx J x 2 

Ж. (1) 8.5 (2) 16.0 (3) 0.333333( 保 留 了 6 位 小 数 ) (4) 512.0 (5) 1.2 

(6) 6.0 (7) 4.5 


NTI 


2] RA 4 解析 


1. 判断 下 列 赋值 语句 的 正 误 , 如 果 错 误 , 请 说 明理 由 。 变 量 的 类 型 遵循 ION 规则 。 
V—v 
X=2A—+B 
Mx N=4x Axx2—2xB—AxAxC 
х=Ү=7-+2.0 
I=. TRUE. 
Ж. 正确 的 赋值 语句 是 : О V—v,O I—. ТКОЕ. 。 
错误 的 是 : O X 一 2A 十 B, 缺 少 乘法 运算 符 ; 
Мх М=4х А хх 2—2 х В-А х А х С, Н] = 7230) л л Е; 
X 一 YY 一 2 十 2.0, 赋 值 语句 不 能 连 等 。 
2. 写 出 执行 下 列 赋值 语句 后 变量 中 的 值 。 变 量 的 类 型 遵循 IN 规则 。 设 1—9.J]—3. 
К=—4,Т=2.5.Х=б, 
(1) L=I/ J] * X (22 M—J* T+I (3) Y—1.0* K/X 
(4) Z=J+K x T (5) A=1/K x K+ K хх 2 
25. (1) 18 (2) 16 (3) —0.666667 (4) 一 7.0 (5) 16.0 
3. 写 出 以 下 程序 的 运行 结果 。 
2, (1) 2.4 
(220 9 ] 
(3) Па leasyL leasyL ldiffiC[ 表示 空格 ) 
4. 编写 程序 ,解决 下 面 的 问题 ， 
( 1) CHARACTER CH 
PRINT х, "输入 一 个 小 写字 母 :" 
READ x ,CH 
СН = CHAR( ICHAR( CH) — 32) 


PRINT x ‚СН 
END 


(2) INTEGER A, A1, A2 
PRINT x ， "输入 一 个 两 位 整数 : " 
READ x ,A 
Al = MOD(A, 10) 
A2 = A/10 
PRINT « , "其 个 位 数字 和 十 位 数字 的 和 为 :ALT+R2 
PRINT x , "3g Pg rZ M SL :" M x 10 * A2 


(3) 


(4) 


习题 4 解析 
END 
REAL X, Y 
PRINT x ," 输 入 自 变量 X 的 值 :" 
READ x ,X 
Ү= Хх х3 + SIN(X)« x 2+IO0G(Xx x 4+1) 
PRINT x ," 函 数值 为 ",Y 
END 
REAL X,Y 


X= (2x х2) х ж (1.0/(2030- 2017)) - 1 
Y-LOG(2* *2.)/LOG(1 + 5.0/100) 

PRINT x ,"4E[- P3 HS FC ve BE y :",X 

PRINT x , NINT(Y + 0.5), "年 后 人 均 收 入 可 以 翻 两 番 " 
END 
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1. 阅读 下 列 程序 ,给 出 运行 结果 。 

(1) 5.0 

(2) 3.0 

(3) 0.0 

(4) Ee 

2. ахй 

(1) MODCM,5) = —0. AND. MODCN,5)——0 
ENDIF 

(22 MOD(M/10.100 38 CM— I * 1005/10 
MOD(M,10) 或 M-—Ix100—J x 10 
І+Ј+К = =10 


3. REAL HOUR, PAY, SALARY 
PRINT x , "输入 工作 时 间 ( 小 时 ) 和 单位 报酬 (元 /小 时 ): " 
READ x , HOUR, PAY 
IF(HOUR < = 40) THEN 
SALARY = HOUR x PAY 
ELSE 
SALARY = 40 x PAY + (HOUR — 40) x 2 x PAY 
ENDIF 
PRINT* , "职工 应 得 的 工资 为 : ", SALARY 
END 


4. REAL X, Y 
PRINT +," А X: " 
READ * ,X 
Y=0 
IF(X>=0.AND.X<1)Y=3xX-1 
IF(X»-1.AND.X«2)Y-2»X*5 
IF(X»-22.AND.X«3)Y-X*7 
PRINT х , "Y=" Y 
END 


F 


сл 


INTEGER A, B, C, MAX 
PRINT x , "输入 三 个 数 : " 
READ x , A, B, C 

MAX= A 

IF ( MAX < B) MAX = B 


习题 5 解析 


IF(MAX < C)MAX = C 
PRINT х ," # K H" , MAX 
END 


. INTEGER AGE 


REAL INCOME, TAX 
PRINT х, "输入 某 人 的 年 龄 和 年 收入 :" 
READ x , AGE, INCOME 
INCOME = INCOME/12 
IF( AGE < 50) THEN 
IF( INCOME « = 2000) THEN 
TAX = INCOME x 0.05 
ELSE IF(INCOME « - 8000) THEN 
ТАХ = 2000 x 0.05 + (INCOME - 2000) х 0.1 
ELSE 
TAX = 2000 x 0.05 + 6000 x 0.1 + ( INCOME - 8000) x 0.15 
ENDIF 
ELSE 
IF(INCOME < = 2000) THEN 
ТАХ = INCOME x 0. 03 
ELSE IF(INCOME « - 8000) THEN 
TAX = 2000 x 0.03 + (INCOME - 2000) x 0. 07 
ELSE 
TAX = 2000 x 0.03 * 6000 x 0.07 + (INCOME - 8000) x 0.1 
ENDIF 
ENDIF 
PRINT x , "一 年 所 应 缴纳 的 税金 是 :",TAX* 12 
FND 
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1. 


写 出 下 列 程序 的 运行 结果 。 


(1) 1.0 
(2) 1.0 
(3) N—19 


N=28 


(4)5 4 4 3 12 


2. 


INTEGER S 
S=0 
DO I= 1,100,2 
S-StI 
ENDDO 
PRINT x ,"100 之 内 所 有 奇数 之 和 为 :",S 
END 


REAL PI 
PI=0 
DO I= 1,1000 


PI=PI+1.0/(4x I—3)-1.0/(4x I- 1) 


ENDDO 
PRINT x , "x 约 等 于 " PI x 4 
END 


. REAL NUM 


INTEGER NO, NZ, NF 

NO = O 

NZ = 0 

NF = 0 

DO I= 1,20 
READ x , NUM 


IF( NUM > 0) THEN 
NZ-NZ*1 
ELSEIF(NUM == 0) THEN 
NO = NO + 1 
ELSE 
NF = NF + 1 
ENDIF 
ENDDO 
PRINT x ," 正 数 有 ", Nz, "个 " 
PRINT х, "4", М, "A" 
PRINT x , " fa A", МЕ, "А" 
END 


INTEGER G, S, B, Q, M 
M-0 

DO Q- 1,4 
DO В= 1,4 

DO 5= 1,4 
DO 6= 1,4 


М= О» 1000 + Bx 100 + 5 є 10 + G 


М=М+1 
PRINT x ,N 
ENDDO 
ENDDO 
ENDDO 


PRINT x Р тт 可 能 的 四 位 数 有 "， M, "Д" 


END 


. PARAMETER PI = 3.1415926 


REAL X, COS, F 

INTEGER::I-20 

PRINT x , "输入 角度 值 :" 

READ x , X 

X = X x PI/180 

СО5 = 1 

F=1 

DO WHILE(ABS(F)» 1. 0E — 6) 
I-I*1 


F= -XxX/((2*xI-1)* (2* I)) x F 


COS = COS + F 
ENDDO 
PRINT 10, COS 
10 FORMAT( F4. 2) 
END 


INTEGER M, N, NG, NS, NB 
М= 0 
DO N= 1,500 

NG = MOD(N,10) 

NS = MOD( N/10, 10) 
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NB = N/100 
IF(MOD(NG + NS, 10) == NB) THEN 
PRINT x ,N 
М=М+1 
ENDIF 
ENDDO 
PRINT * ， "满足 条 件 的 数 有 ",M, "A" 
END 


8. INTEGER S,F 
PRINT х, "输入 奇数 N: " 
READ x ,N 
5=0 
F= 0 
DO I-1,N,2 

F-F*I 

S=S+F 
ENDDO 
PRINT * ,S 
END 


О. INTEGER M, I,S 
DO M= 2,10000 
5-0 
DO I=1,M-1 
IF(MOD(M, I) ==0)S=S+I 
ENDDO 
IF(M== S)PRINT x ,M "是 完 数 ." 
ENDDO 
END 


10. H= 100 
S=0 
DO N= 1,10 
H1 = H/2 
S=S+H+H1 
H=H1 
END DO 
PRINT х ,H,S 
END 


1]. DO I= 1,11 
K-76- ABS(6 - I) 
PRINT 10, (J + (K- 1) *6,J 7 1,K) 
ENDDO 
10 FORMAT(« K»(13, 2X) ) 
END 


1. 写 出 下 列 语句 的 输出 结果 (其 中 口 表 示 空 格 )。 
(1) 150L JLILI12 xxx [ JL ]022 
(2) [LILI456. 780[ |[ ][ ]55.686 x x x xxx 
(3) 0.457E-4-03[ |[ |[ 10. 557Е--02 xx x xx « 
(4) L ILILILITL IL ]FE 
(5) hell |[ ]L ]'how are you? hello 
(6) PRINT 10.'hello'.100 

10 FORMAT(5X,A,2X,I3) 

[ IEIEJE lhello[ 101100 
(7) hello 


100100 
2. 写 出 下 列 格式 输入 后 变量 的 值 ( 其 中 _ 表示 空格 )。 


LLUD ] 2 Э 4 О 


| 2 3 
4 5 6 
( 8 9 
10 1l 12 
| 4 7 10 
ZA ú 0 l] 
3 6 9 1⁄2 
(2) 10 
10 
10 
10 
10 
(3) S= 15. 0 
(4) K= 5 
2. INTEGER A(10) 
DO I- 1,10 
READ x , A( I) 
ENDDO 
PRINT + ,(А(1),1= 10,1, - 1) 
END 


PARAMETER N = 5 

INTEGER A(N),MI,T 

PRINT 10," A", N, "个 数 :" 

10 FORMAT( A, I2, A) 

READ x ,A 

PRINT 20," 原 数列 为 : ",A 

MI=1 

DO I=2,N 
IF(A(MI)<A(I))MI =I 

ENDDO 

T= A(MI) 

DO I-MI-1,1,-1 
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A(I*1)-A(I) 

ENDDO 

A(1)- T 

PRINT 20, "结果 数列 为 : ",А 
20 FORMAT(A,<N> I4) 

END 


4. PARAMETER N = 5 
CHARACTER * 8 A(N), T 
DOI-1,N 

READ x , A( I) 
ENDDO 
DO I-21,N-1 
K=I 
DOJ=I+1,N 
IF(MK)>A(J))K= J 
ENDDO 
T = A(1) 
A(I) = A(K) 
А(К) = T 
ENDDO 
PRINT 10, A 
10 FORMAT(<N>(A,2X)) 
END 


5. (给 出 一 种 方法 ) 


PARAMETER N= 6 


DO I=1,5 
PRINT 10, (J, J = I,N),(J,J7 1,I- 1) 
ENDDO 
10 FORMAT(< N > 14) 
END 
6. (给 出 一 种 方法 ) 
CHARACTER CH(6) 
СН = (/"H", "к". a Fa "p "P np") 
DO I=1,6 
PRINT x ,(CH(J),J= 1,6) 
ENDDO 
END 
7. (Hë) 


8. PARAMETER N = 10 
INTEGER NUM(N), YW(N), SX(N) , YY(N), ZF(N), XH 
DOI-1,N 
PRINT 10, "fiy A SS", I, "A |] J^ d$ ГКАЛ: " 
READ x , NUM(I), YW(I),SX(I),YY(I) 
ENDDO 
10 FORMAT(A, I2, A) 
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ZF = 0 
DO I= 1,N 
ZF( I) = YW(I) + SX(I) +ҮҮ(Т) 
ENDDO 
PRINT x ," 输 入 要 查询 学 生 的 学 号 : " 
READ x ,XH 
DO I= 1,N 
IF (XH == NUM(I))EXIT 
ENDDO 
IF( I> М) ТНЕМ 
PRINT х, " & JE JI A" 
ELSE 
PRINT 20, "语文 ", "数学 ", "英语 ", "总 分 " 
PRINT 30, YW(I),SX(I),YY(I), ZF( I) 
ENDIF 
20 FORMAT(1X, 4( A4, 2X)) 
30 FORMAT(1X,4(13,3X)) 
END 


О, PARAMETER N = 5 

INTEGER A(N), X 
DATA A/23,12,45,9,31/ 
READ x ,X 
DO I-1,N 

IF(X== A(I))EXIT 
ENDDO 
IF( I> М) ТНЕМ 

PRINT x ," 查 无 此 数 ." 
ELSE 

PRINT x ,X, "JE ZX2H rH S", I, "个 数 ." 
ENDIF 
END 


10. (1) 


PARAMETER М = 5 
REAL A(N, М), B(N, N) 
PRINT = ," 输 入 5Xx5 短 | 阵 :" 
READ x ,((A(1,J),J= 1,N),I=1,N) 
PRINT х, "JE RE: " 
DOI-1,N 

PRINT 10, (A(I,J),J 2 1,N) 
ENDDO 
DOI-1,N 

DOJ=1,N 

В(Ј,І) = A(I,J) 

ENDDO 
ENDDO 
PRINT «+ , "5t PL Е: " 
DOI=1,N 

PRINT 10, (B(I,J),J= 1,N) 
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ENDDO 
10 FORMAT(<N> F6.2) 
END 
(2) 


PARAMETER N = 5 
REAL A(N, N), S(N),T 
PRINT х, "А 5x54ppk: " 
READ x ,((A(I,J),J7 1, N),I-7 1,N) 
PRINT х, "Jp RE: " 
DOI-1,N 
PRINT 10, (A(I,J),J 7» 1, N) 
ENDDO 
S-0 
DOI-1,N 
DOJ=1,N 
S(I) =S(I) +А(І,Ј) 
ENDDO 
ENDDO 
K=1 
DOI-2,N 
IF(S(K)« S(I))K^* I 
ENDDO 
IF(K/ = 1)THEN 
DOJ=1,N 
T= A(1,J) 
A(1,J) = A(K,J) 
A(K,J) =T 
ENDDO 
ENDIF 
PRINT +, "对 调 后 的 矩阵 : " 
DO I=1,N 
PRINT 10, (A(I,J),J=1,N) 
ENDDO 
10 FORMAT(<N> F6.2) 
END 


(3) 


PARAMETER N = 5 
REAL A(N, N), S(N), T 
PRINT = "А 5x54ppk: " 
READ *,((A(I,J),J=1,N),I=1,N) 
DOI-1,N 

PRINT 10, (A(I,J),J0 = 1,N) 
ENDDO 
DOI-1,N 

T= A(I, I) 

DOJ-71,N 

А(І,Ј) = A(I,J)/T 
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ENDDO 


ENDDO 
PRINT х, "新 的 和 矩阵: " 
DOI-21,N 


PRINT 10, (A(I,J),J = 1,N) 


ENDDO 
10 FORMAT(« N> F6.2) 


END 


11. 


PARAMETER N = 4 
REAL A(N, N) 
INTEGER H1, L1, H2, L2 


PRINT 200, "lij A", N," x" М, "ПЕ: 


200 FORMAT( A, I1,A, I1, A) 
READ x , ((A(I,J),U 2 1, N),I- 1,N) 
PRINT х, "Ја RE: " 
DO 1= 1, М 
PRINT 10, (A(I,J),J = 1,N) 
ENDDO 
10 FORMAT(« N> F6. 2) 
Hi 21:11 1 
H2-21:12-21 
DO I-1,N 
DO J=1,N 
IF(A(I,J)» A(H1, L1) ) THEN 
Hl =I 
jl = 
ENDIF 
IF(A(I,J)« A(H2, L2) ) THEN 
H2 = I 
Es eg 
ENDIF 
ENDDO 
ENDDO 


PRINT 300, "最 大 元 素 在 第 ",H1L," 行 ",E 


1, " ANI] " 


PRINT 300, "最 小 元 素 在 第 ",H2， " Ar", 12; " j| " 


300 FORMAT(A, I1,A, I1, A) 
END 


1. 
2. 
d 


Ae. 错误 的 是 (2) (3) (4) 。 


A. 

(1) 1. 
Т 
№ 


(221 1 


2 
d 3 
4 


(3) 4.0 


(4) —2.3 2.6 
4, 


5. 


(1). 


1 2.2 3.3 4.4 


=4 


] 
2 
3 
4 


3.0 


PROGRAM XT5 


INTEGER N, K 
READ x ,N,K 


— 2. З 


PRINT x , SOP(N, K) 


END 


FUNCTION SOP(N, K) 


INTEGER N, K, I 
SOP = 
DOI-1,N 

SOP = SOP + POWER(I, K) 


0 


ENDDO 


END 


FUNCTION POWER(I,K) 


POWER= Ix x K 


END 


. INTEGER FUNCTION GDC(A, В) 


INTEGER A, B, T, R 


IF(A«B)THEN 


T=A 
A=B 
B= T 


—4.6 


—6.9 


— 9, 2 


—J1L 8 


0. 0 
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ENDIF 

DO I=B,1, -1 
R = MOD(A, B) 
IF(R== 0)ЕХІТ 
A=I 
B=R 

ENDDO 

GDC = B 

END 


PROGRAM XT6 
INTEGER M, N, GDC 
PRINT х, "输入 两 个 整数 :" 
READ * ,M,N 
PRINT 10,M, "FRI", N, "的 最 大 公约 数 是 ", GDC( M, N) 
10 FORMAT(I4,A,.,I4,A, I4) 
END 


7. PROGRAM XT7 

CHARACTER * 8 CH 

INTEGER N, HEX, I 

PRINT х, "输入 一 个 不 超过 8 位 的 十 六 进 制 数 :" 

READ x ,CH 

N = LEN(CH) 

DO WHILE(N > 0. AND.CH(N:N) == ' " 
N=N-1 

ENDDO 

PRINT ж, "对 应 的 十 进 制 数 为 :" 

PRINT x , HEX( CH, N) 

END 


! 将 十 六 进 制 数 转换 为 十 进 制 数 的 子 程序 
INTEGER FUNCTION НЕХ(СН, N) 
CHARACTER x ( x ) CH 
INTEGER N, F 
S=0 
Е = 0 
І=1 
DO 1= 1,4 
SELECT САЅЕ(СН(І:І)) 
CASE("0" :"9") 
F = (ICHAR(CH(I:I)) - 48) 
CASE("A" :"Е") 
Е = (ICHAR(CH( I:I)) – 65 +10) 
CASE( "а" : "£") 
F = (ICHAR(CH( I:I)) - 97 * 10) 
ENDSELECT 
S=Sx16+F 
ENDDO 
HEX = 5 
END 
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8. PROGRAM XT8 
COMMON /CMN1/ M, N 
COMMON /CM2/ А,В 
REAL А(7) 
REAL B(4) 
N = SIZE( A) 
M = SIZE( B) 
PRINT 5, "输入 A 序列 的 ",N, "А" 
READ *, A 
PRINT 50," ġ A В] HI", М, "АУ" 
READ x ,B 
50 FORMAT( A, I2,A) 
PRINT « , "АЈДЕ: " 
PRINT 10, (A( I),I- 1,N) 
PRINT x ,"B Jy yi : " 
PRINT 20, (B( I),I- 1,M) 
CALL RELEASE(A,B) ! 调 用 删除 子 程序 
PRINT « ," А Es в Su a A ДГ: " 
PRINT 10,(А(Т),Т=1,М) 
10 FORMAT(« N> F6.2) 
20 FORMAT(« М> F6.2) 
END 


! 删除 子 程序 
SUBROUTINE RELEASE(A,B) 
COMMON /CMN1/ M,N 
REAL A(N), B(M) 
pod 
DO WHILE(I <= N) 
Ј=1 
DO WHILE(J <= M) 
ТЕ(А(Т) == B(J)) THEN 
DOK-2I,N-1 
A(K) = A(K* 1) 
ENDDO 
N-N-1 
ENDIF 
J=J+1 
ENDDO 
I=I+1 
ENDDO 
END 


Ü. PROGRAM XT9 
PRINT 10, "Jr ik 5 ","14£fg BB iB pak", "2 ff iD 2C, "5 角 硬 币 个 数 " 
10 FORMAT( A6, 6X, 3(A12, 6X) ) 
CALL DOIT( ) 
END 


! 子 程序 
SUBROUTINE DOIT() 
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LOGICAL ISOK 
INTEGER: : A(3),COUNT = 0,N 
A= (/1,2,5/) 
DO T= 0,2 
DO J = 0,5 
DO K = 0,10 
IF(A(1) x K+ A(2) x J + A(3) x I == 10) THEN 
COUNT = COUNT + 1 
PRINT 20, COUNT, K, J, I 
ENDIF 
ENDDO 
ENDDO 
ENDDO 
20 FORMAT( I4, 8X, 3(16, 12X)) 
END 


10. ! 角 夫 猜想 子 程序 
SUBROUTINE JIAOFU(N) 
INTEGER:: N,M 
M-0 
DO WHILE(N/ = 1) 
М=м+1 
IF(N== 1) THEN 
PRINT* , "第 ",M, "次 验证 后 的 值 是 ",N 
EXIT 
ELSE IF(MOD(N,2) == 0)THEN 
N = N/2 
PRINT « , "第 ",M, "次 验证 后 的 值 是 ",N 
ELSE 
N=3xN+1 
PRINT х, "第 ",M, "次 验证 后 的 值 是 ",N 
ENDIF 
ENDDO 
FND 


PROGRAM XT10 
INTEGER K 
PRINT х, "任意 输入 一 个 日 然 数 ,验证 角 夫 猜想 " 
READ x ,K 
CALL JIAOFU(K) 
END 


11. PROGRAM XT11 


INTEGER N 
PRINT *," A S Brž: " 
READ x ,N 


PRINT x ， 走 出 的 方案 : " 
CALL STAIRS(N) 
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RECURSIVE SUBROUTINE STAIRS(N) 
INTEGER: : N, COUNT = 0, STACK( 1024) , STEPS = 0 
SAVE STACK, STEPS, COUNT 
IF(N == 0)THEN 
COUNT = COUNT + 1 
PRINT 10, "$", COUNT, "种 走 法 ,需要 ",STEPS, " 步 :" 
10 FORMAT( A, I4, 2X, A, I2, A, XV) 
PRINT 20, (STACK(I),I = 1, STEPS) 
20 FORMAT(« STEPS > 14) 

ENDIF 

IF(N> = 1)THEN 
STEPS = STEPS + 1 
STACK(STEPS) = 1 
CALL STAIRS(N- 1) 
STEPS = STEPS — 1 

ENDIF 

IF(N> = 2) THEN 
STEPS = STEPS + 1 
STACK( STEPS) - 2 
CALL STAIRS(N- 2) 
STEPS = STEPS — 1 

ENDIF 

IF(N> = 3) THEN 
STEPS = STEPS + 1 
STACK( STEPS) = 3 
CALL STAIRS(N- 3) 
STEPS = STEPS — 1 

ENDIF 

END 


12. 4r lr: 方 阵 指 行 数 和 列 数 相等 的 矩阵 , 主 对 角 线 上 的 元 素 其 行 标 工 和 列 标 J 相等 
对 数组 名 为 A 的 方 阵 , ACID Le EX faz Еж Hi. BID faz EATR HC 
行 标 了 和 列 标 J 三 之 和 等 于 矩阵 总 行 数 加 1, 对 NN 行 N 列 的 数组 A, A(I,N 十 1 一 了 就 是 副 对 


(GR dou faz E BUG л ж Ж) ER Ж 
REAL FUNCTION SUM ZHU(A,M) 
REAL A(M, M) 
SUM ZHU = 0 
DO I-21,M 
SUM ZHU = SUM ZHU + А(І, I) 
ENDDO 
END 
DR BIDS ЛИ Ж E BG 76 S ЖИ) BR ZI 
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REAL, FUNCTION SUM FU(A,M) 
REAL A(M, M) 
SUM FU = 0 
DOI=1,M 
SUM FU= SUM FU+A(I,M+1-1I) 
ENDDO 
күр 


PROGRAM XT12 
REAL A(3,3) 
REAL B(9) 
EQUIVALENCE(| A, B) 
B= (/1,5,3,10,2,6,8,9,5/) 
р01= 1,3 
PRINT x , (А(І, Ј),Ј=1,3) 
ENDDO 
PRINT + , "上 面 方 阵 的 主 对 角 元 系 之 和 是 :“,SUM_ZHU(R, 3) 
PRINT x ， "上面 方 阵 的 副 对 角 元 率 之 和 是 :",SUM_ FU(A,3) 
Ер 


13. 分 析 : 当 盘 于 只 有 一 个 时 , 即 DISKN 王 1, 移 动 盘 于 的 步 又 只 有 一 个 , 即 , 从 A EE 
动 到 C 柱 。 为 了 描述 方便 ,这 里 采用 题解 表 9. 1 的 形式 。 
题解 表 9.1 只 有 一 个 盘子 时 的 移动 步骤 
iji EH 
# 1 从 A 柱 移动 到 C 柱 


注意 到 , 当前 目标 盘 1 是 由 A 柱 移 动 到 C 柱 , 我 们 可 以 通过 语句 “CALL 
HANOITOWER(QU1,"A 柱 ","B 柱 ","C 柱 ")” 实 现 以 上 操作 过 程 ,其 中 第 1 个 参数 是 盘子 
数目 ,第 2 个 参数 是 起 点 柱 编号 ,第 3 个 参数 是 中 间 柱 编号 ,第 4 个 参数 是 目的 地 柱 编号 ( 注 
意 , 子 程序 HANOITOWER 还 未 定义 , 先 假定 它 存 在 )。 

当 盘 子 只 有 2 个 时 , 即 DISKN 王 2, 移 动 盘子 的 步骤 变 成 了 3 个 (2 一 1), 如 题解 表 9. 2 


题解 表 9.2 2 个 盘子 时 的 移动 步骤 


B | 盘 1 从 A 柱 移动 到 B 柱 
: B 2 从 入 柱 移 动 到 C 柱 
1 | B | C | 盘 1 从 B 柱 移动 到 C 杜 


换个 角度 看 问题 ,把 2 个 盘子 视 为 当前 目标 盘 2 和 2 上 面 的 所有 盘子 (当前 只 有 一 个 )， 
则 2 个 盘子 移动 的 3 个 操作 步骤 可 以 看 成 如 下 的 3 T ERE. 

(D 先 把 当前 目标 盘 2 上 的 所 有 盘子 (当前 只 有 一 个 , 即 盘 1) 移动 到 B 柱 ,这 个 行为 可 以 
视 为 当 DISKN = 1 问题 中 目的 柱 更 换 为 B 柱 的 汉 诺 培 问题 ,通过 语句 “CALL 
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HANOITOWER(1,"A Ж". "СЕ". "ВӘ". 

把 当前 盘 盘 2 由 人 A 柱 移动 到 C 柱 ,可 通过 语句 "CALL HANOITOWER (1, 
"A 柱 ","B 柱 ","C 柱 ")” 实 现 。 

O 将 原本 步骤 中 中 移动 到 也 柱 的 盘 2 以 上 的 所 用 盘子 (当前 只 有 一 个 , 即 盘 1) 借 助 A 
柱 ( 当 前 不 借助 ) 移 动 到 C 柱 , 可 通过 语句 “CALIL HANOITOWER(1,"B 柱 ","A 柱 ","C 
柱 ")” 实 现 。 

以 上 所 有 操作 过 程 假设 通过 调用 子 程序 , 即 语句 “CALL HANOITOWER(2,"A RE", 
"B 柱 ","C 柱 ")” 实 现 , 从 中 可 知 子 程序 HANOITOWER 应 该 是 一 个 递归 子 程序 。 

MET. EUR 3 个 时 , 即 DISKN 王 3, 移 动 盘子 的 步骤 变 成 了 7 个 (2 一 1) ,如 题解 表 9. 3 

题解 表 9.3 3 个 盘子 时 的 移动 步骤 
盘子 个 数 说 明 


f 1 从 A 柱 移动 到 C 柱 
2 | A | B | 盘 2? 从 A 桩 移动 到 B 柱 
1 | € | B | #IACH638 BR 
3 从 人 柱 移动 到 C 柱 


| B | A | 盘 1 从 B 柱 移动 到 A 柱 
| B | C | #25B8E8628 CE 
# 1 从 A 柱 移 动 到 C 柱 


换个 角度 看 问题 ,把 3 个 盘子 视 为 当前 目标 盘 3 和 3 上面 的 有 所 有 车 
3 个 盘子 移动 的 7 个 操作 步骤 可 以 看 成 如 下 的 3 个 过 程 。 

Q) 先 把 当前 目标 盘 3 上 的 所 有 盘子 (当前 有 2 个 , 即 盘 1 和 盘 2) 仿 助 C 柱 移动 到 也 柱 ， 
这 个 行为 可 以 视 为 当 DISKN=2 问题 中 目的 柱 更 换 为 B 柱 的 汉 诺 塔 问题 ,通过 语句 “CALL 
HANOITOWER(2,"A Е", "СЕ", "ВЕ". 

© JE "iH З НА RETE ISI C kE, пиј "САТ, HANOITOWER(C "A Ж", "В 
E" "CHED ”实现 。 

将 原本 步骤 由 中 移动 到 B 柱 的 所 有 盘子 (当前 有 2 个 , 即 盘 1 ЯП 20 (BU A 柱 移动 
到 C 柱 ,可 通过 语句 “CALL HANOITOWER(2,"B 柱 ","A 柱 ","C 柱 ")” 实 现 。 

当 盘 子 有 NN 个 时 , 即 DISKN 王 六 ,移动 盘子 的 步骤 变 成 了 2 一 1 个 ,依然 将 N 个 盘子 
视 为 当前 目标 盘 NN 和 NN E E BS PD ECT C Bp N 一 1 个 ), 则 个 盘子 移动 的 2 一 1 个 
操作 步骤 可 以 看 成 如 下 的 3 个 过 程 。 

(D 先 把 当前 目标 盘 N 上 的 所 有 盘子 (当前 有 N— 1 个) 借助 C 柱 移动 到 B 柱 ,这 个 行为 
可 以 视 为 当 DISKN= N — 1 问题 中 目的 柱 更 换 为 B 柱 的 汉 诺 塔 问题 ,通过 语句 “CALL 
HANOITOWER(N-—1,"A 柱 ","C 柱 ","B 柱 ")” 实 现 。 

把 当前 盘 盘 N H A 柱 移 动 到 C 柱 , 可 通过 语句 “CALL HANOITOWER(N,"A 
МЕ". "ВЖ". "СӘ", 


于 (当前 有 21). 
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O 将 原本 步 又 山中 移动 到 B 柱 的 所 有 盘子 (当前 有 NN 一 1 个) 借助 A 柱 移动 到 C 柱 ,可 
通过 语句 “CALL HANOITOWER(N 一 1,"B 柱 ","A 柱 ","C 柱 ")” 实 现 。 


! 汉 详 塔 问题 的 递归 子 程序 
RECURSIVE SUBROUTINE HANOITOWER( DISKN, A, B, C) 
INTEGER : :DISKN 
CHARACTER x ( x ) А,В,С 
INTEGER, SAVE:: M= 0 
IF(DISKN == 1) THEN 


М=М+1 
PRINT* , "第 ",M," 步 , 盘 从 ",A, "移动 到 ",C 
RETURN 
ELSE 
CALL HANOITOWER(DISKN— 1, A,C,B) 
CALL HANOITOWER(1, A, B, C) 
CALL HANOITOWER(DISKN- 1, B, A, C) 
ENDIF 
END 
PROGRAM XT13 
INTEGER N 
PRINT * , "TA ЛХ ИТ ИТ [B] НУ d ЖН" 
READ * ,N 
CALL HANOITOWER(N, "A Е", "B FE", "C f£") 
END 


编译 链接 ЖЕЛИ P] Huir EE Ja 1ш A MIRER 4. FEJT 1S ЯШИ И EE] 9. 1 所 示 。 


qui ERAS "HAvAHANOITOWER\H.. coeli ici 


TAWAN ТЕЕ nae rj 32 1927] B) ít 


- 


=> шс 


Ma dq yT атм 


krijuar aur r Azar kai) EHE lg 
一 =: 


tite ачуула I 


m o m o > > с; 3 t 


Myr gp yir per per per 


1 
2 
3 
4 
5 
6 
7 
8 
9 
B 
1 
2 
3 
4 
5 


НЕНАЧЕ 


1 
1 
1 
1 
1 
1 


题解 图 9.1 汉 诺 塔 盘 数 为 4 时 的 运行 结果 
盘子 具体 的 移动 步骤 如 题解 表 9.4 所 示 。 
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题解 表 9.4 4 个 盘子 时 的 移动 步骤 
目的 地 柱 号 io HH 

Ж 1 从 AA 柱 移动 到 B 柱 
2 A H: ЫЕ СЖ 
ШІМ ВЕЖУ СЖ 
Ж 3 从 AA 柱 移 动 到 B 柱 
Bl 从 C 柱 移动 到 A 和 柱 
tk 2 МСЕ ВА 
B lA ARTES BE 
B4 ATEES CHE 
B 1 从 B 柱 移动 到 C 柱 
各 2 从 BB 柱 移动 到 A 柱 
& 1 从 C 柱 移动 到 AA 柱 
#3 M BHR JE] CH 
盘 1 从 A 柱 移动 到 BB 柱 
w 2) A H: SI C +E 
ШІМ ВЕЖУ СЖ 


盘子 个 数 步骤 号 


2 


= | о | DS 


о | A |в 
[a0 | 5 |е 
а | A | 
т | € le 
[a [0 |в 
в | 
[3 | 5 л 
а | 5 |е 
о | A |в 
[1 | 6 | 


上 面 程序 没有 考虑 每 次 移动 时 盘子 的 编号 ,分 析 题 解 表 9.2、 题 解 表 9.3 和 移动 盘子 的 
3 个 过 程 ,可 以 观察 到 在 移动 盘子 的 第 2 过 程 中 ,盘子 编号 都 是 原本 在 A 柱 上 的 总 盘子 数 ， 
为 此 引入 第 4 个 参数 来 传递 盘子 编号 ,修改 上 述 程序 如 下 : 


RECURSIVE SUBROUTINE HANOITOWER( DISKN, A, B, C, K) 
INTEGER ::DISKN,K 
CHARACTER x ( x ) А,В,С 
INTEGER, SAVE: : M= 0 
IF(DISKN == 1) THEN 


M=M+1 
PRINT х, "%", М, " 步 , 第 ",K BA" А, "移动 到 ",C 
RETURN 

ELSE 


CALL HANOITOWER(DISKN - 1,A,C,B,K- 1) 
CALL HANOITOWER(1, A, B, C, К) 
CALL HANOITOWER(DISKN - 1,B,A,C,K- 1) 


ENDIF 
END 
PROGRAM ZHU 
INTEGER N, K 
PRINT х, "请 输入 汉 诺 塔 问题 中 要 移动 的 盘子 数目 " 
READ x , N 
K=N 
CALL HANOITOWER(N,"A №", "ВЖЕ", "СЖ", K) 
END 


HARTA 4 3e Ta Z Ж Wl ai gk Es] 9. 2 所 示 。 
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9.2 MERR 4 ВАЈАТ ЖС Гн) 
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m 
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= 
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A. 
24.0, 
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L 
2. 
3. 
其 他 题 的 答案 略 ,可 参阅 主教 材 第 11 TEUUK E GS Же УАНМ” BJ HJ. 


习题 11 解析 


1. 分 析 : 本 题 只 要 求 定义 派生 类 和 该 类 下 的 结构 体 数组 。 在 派生 类 的 定义 中 ,关键 是 
确保 其 成 员 的 完整 性 和 成 员 类 型 的 正确 性 ， 本 题 学 生 信息 在 题目 中 已 经 非常 明确 ,其 成 员 分 
别 是 学 号 、 姓 名、 性 别 、 年 龄 .家 庭 住址 .5 门 课程 成 绩 ,对 应 类 型 分 别 是 整 型 .字符 型 .逻辑 
而 . 整 列 .字符 型 和 数组 类 型 ,派生 类 可 定义 如 下 ， 


TYPE STUDENT RECORD Е V ЙЕ Ж STUDENT RECORD 

INTEGER NUM 155 BH UC ^: 2$ STUDENT. RECORD 的 各 个 成 员 类 型 及 其 名 称 
CHARACTER x 10 МАМЕ 

LOGICAL SEX 

INTEGER AGE 


CHARACTER x 30 ADDRESS 
REAL SCORE(5) 
END TYPE ! 派 生 类 STUDENT RECORD 的 定义 结束 


TYPE(STUDENT RECORD) STU(50) ! 定 义 一 个 能 保存 全 班 50 人 信息 的 结构 体 数 组 


2. 分 析 : 根据 题目 描述 ,首先 需要 创建 一 个 派生 类 ,该 类 包含 的 成 员 是 学 号 、 姓 名、 性 
别 和 成 绩 , 然 后 定义 该 类 下 的 一 个 长 度 为 10 的 一 维 结构 体 数 组 ,通过 一 个 文件 将 10 个 学 生 
的 信息 传递 给 定义 的 结构 体 数组 ,对 数组 元 素 的 成 绩 成 员 和 60 进行 比较 ,大 该 数组 元 素 的 
成 绩 成 员 比 60 小 , 则 输出 该 成 员 到 屏幕 或 指定 文件 。 

编程 如 下 : 


TYPE STUDENT INFORMATION 
INTEGER NUM 
CHARACTER « 10 NAME 
CHARACTER * 2 SEX 
REAL SCORE 
END TYPE 
TYPE(STUDENT INFORMATION) STU(10) 
INTEGER I 
OPEN(10,FILE- "STU INFORMATION. TXT") 
DO I=1,10 
READ(10,100) STU(I) 
ENDDO 
PRINT + 学 —"," 姓名 “人 性别 成绩 
uisi, " 
IF(STU(I). SCORE < 60) PRINT 100, STU(I) 
ENDDO 
100 FORMAT(IB8, 2X, A10, 2X, A2, 2X, F6. 1) 
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END 


程序 中 的 数据 文件 内 容 如 下 ,格式 为 : 学 号 占 6 列 , 空 2 列 ; 姓名 占 10 列 , 空 2 列 ; 性 
别 占 2 列 , 空 2 列 ; 成 绩 占 6 9| CE к ИШ... 一 个 汉字 占 2 列 )。 


20170101 Æ H 男 89.5 
20170102 л 男 64.0 
20170103 司马 明白 E 53.5 
20170104 К JE dr 78.5 
20170105 ÆA H 99.5 
20170106 ЖНЖ 4 48.5 
20170107 王强 H 77.5 
20170108 == I£ dr 51.5 
20170109 ”陈刚 € 90.0 
20170110 WE 胃 84.0 


程序 运行 结果 如 题解 图 11. 1 所 示 。 


题解 图 11.1 习题 11 第 2 题 的 程序 运行 结 采 
3. яя: пате TAR WORKER o н s 姓名 、 = ^ 


epee ieee айдыр 得 到 职工 Т. 次 最 高 者 和 最 低 者 的 所 


有 信息 。 建 立 两 个 简单 变量 ,分 别 存 储 10 名 职工 的 总 工资 和 平均 工资 。 
程序 编写 如 下 : 


TYPE WORKER 

INTEGER NUM 

CHARACTER x 10 NAME 

INTEGER AGE 

CHARACTER x 8 TITLE 

REAL SALARY 
ENDTYPE 
TYPE(WORKER) CLIENT(10) 
INTEGER I, МАХ, MIN 
REAL TOTAL SALARY, AVE SALARY 
OPEN(10, FILE = "WORKER INFORMATION. TXT") 
DO 1= 1,10 

READ(10,100) CLIENT(I) 
ENDDO 
MAX = 1 
MIN = 1 
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DOI-22,10 
IF(CLIENT( I). SALARY CLIENT(MAX).SALARY) МАХ = I 
IF(CLIENT(I).SALARY < CLIENT(MIN). SALARY) MIN = I 
ENDDO 
PRINT x , "最 高 工资 职工 的 所 用 信息 为 :" 
PRINT 100, CLIENT(MAX) 
PRINT x , "i [I L 9x HA ТРЕТ Н 1д B. У: " 
PRINT 100, CLIENT(MIN) 
DO I=1,10 
TOTAL SALARY = TOTAL SALARY + CLIENT(I).SALARY 
ENDDO 
AVE SALARY = TOTAL SALARY/10 
PRINT ," 所 有 职工 的 总 工资 为 : ", TOTAL SALARY, "所 有 职工 的 平均 工资 为 : ", AVE SALARY 
100 FORMAT(I8, 2X, A10, I2, 2X, A8, 2X, F10. 2) 
END 


数据 文件 WORKER. INFORMATION. TXT WART., HtA "I8.2X. А10,12, 
2X AS 2XF10,2", 


10000001 Е 48 ip 5689.50 


10000002 ХІХ 41 Bl 6800.50 
10000003 欧阳 云 休 58 总 共 12650.50 


10000004 НЮ 48 工程 师 8989.50 
10000005 KES 36 工程师 8350.50 
10000006 р 26 ШТ 4200. 00 
10000007 л 36 ЕТ 6600.00 
10000008 2 fUJH 42 总 会 计 师 7529.50 
10000009 王 春 梅 44 BL 6629.50 
10000010 Ж# 26 BT 4869.00 


Кз. 5, аа 
рза e: га 


jute mL PU ) š 23 ) : ГА" - M TA > a Ы Ё ч B. 


TA, 


题解 图 11.2 习题 11 第 3 题 的 程序 运行 结果 


4. 分 析 : 由 于 要 输出 排序 后 数字 原来 的 次 序号 ,因此 每 个 数据 都 要 有 两 个 信息 ,一 个 
是 其 本 号 的 值 , 男 一 个 是 其 排序 前 的 序列 号 ,这 可 以 通过 创建 包含 1 个 整 型 变量 和 1 个 实 型 
变量 的 派生 类 NUMBER 来 实现 。10 个 数 的 排序 问题 比较 常见 ,这 里 可 以 使 用 子 程 序 

先 编写 存放 派生 类 的 模块 ,以 方便 在 主 程序 和 子 程序 中 使 用 。 

MODULE АА 


TYPE NUMBER 
INTEGER ORDER 
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REAL VALUE 
END ТҮРЕ 
END MODULE 


采用 选择 法 编写 排序 子 程序 如 下 ， 


SUBROUTINE SORT(A,N) 
USE АА 
TYPE(NUMBER) A(N), T 
INTEGER N 
DOI-1,N-1 
P= І 
DO J = I,N 
IF(A(P). VALUE > A(J). VALUE) P= J 
ENDDO 
T- A(I) 
A(I)-A(P) 
A(P) =T 
ENDDO 
END 


主 程序 编写 如 下 : 


USE АА 
TYPE(NUMBER) NUM(10) 
INTEGER I 
PRINT x , "请 输入 10 个 竺 排序 的 数 , 每 输入 一 个 数 后 回 车 " 
DOI =1,10 

NUM(I). ORDER= I 

READ x , NUM(I). VALUE 
ENDDO 
PRINT х , "排序 前 这 10 个 数 顺 厅 及 其 值 是 :" 
DOI =1,10 

PRINT x , NUM(I).ORDER, NUM(I). VALUE 
ENDDO 
CALL SORT(NUM, 10) 
PRINT * ，" 排 序 后 这 10 个 数 及 其 原来 的 顺序 是 :" 
DOI =1,10 

PRINT «+ , NUM(I).ORDER, NUM(I). VALUE 

ENDDO 

END 


程序 运行 结果 如 题解 图 11.3 所 示 。 

5. 分 析 : 从 题目 上 看 ,候选 人 的 信息 包括 候选 人 姓名 、 票数、 票数 百分比 ,因此 建立 一 
个 包含 3 个 成 员 的 派生 类 来 处 理 此 问题 。 硅 投票 人 给 某 位 候选 人 投票 , 则 该 候选 人 的 票数 
增加 1, 可 通过 字符 串 的 比较 确定 投票 人 给 哪 位 候选 人 投票 。 编 写 程 序 如 下 : 


1581 -ORTRAN95 程序 设计 实验 指导 与 测试 


排序 前 这 +9 个 数 上 顺序 及 其 信和 是 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 


| 排序 后 这 1 ARER 来 的 顺序 是 


5. — 


— 
t0 Qn @ чс А омон 


| 译 按 кнын. 


图 11.3 习题 11 第 4 题 的 程序 运行 结果 


TYPE VOTE 
CHARACTER x 6 NAME 
INTEGER TICKET 
REAL PERCENT 
END ТҮРЕ 
TYPE(VOTE) CANDIDATE(5) 
CHARACTER х 6 NAME 
CANDIDATE = (/VOTE("9Kk —",0,0), VOTE("7E ц", 0,0), VOTE(" Е h ”,0,0),& 
VOTE( "X7x", 0,0), VOTE(" £X E", 0,0) /) 
PRINT х, "请 输入 投票 人 人 数 " 
READ x , N 
DOI-21,N 
READ * , NAME 
SELECT CASE(NAME) 
САЅЕ( "96 —") 
CANDIDATE(1). TICKET = CANDIDATE(1). TICKET + 1 
CASE(" 李 四 ") 
CANDIDATE(2). TICKET = CANDIDATE(2). TICKET + 1 
САЅЕ("Е E") 
CANDIDATE( 3). TICKET = CANDIDATE( 3) . TICKET + 1 


үт 
| 


CANDIDATE(4). TICKET = CANDIDATE(4) . TICKET + 1 
CASE(" 钱 七 ") 
CANDIDATE(5). TICKET = CANDIDATE(5).TICKET + 1 
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CASE DEFAULT 
PRINT x ," 废 票 " 
ENDSELECT 
ENDDO 
DO I=1,5 
CANDIDATE(I).PERCENT = CANDIDATE(I).TICKET x 1.0/N 
PRINT x , "f: 3k A", CANDIDATE( I). NAME, "45", CANDIDATE( I). TICKET, " 19 #Ч җа", CANDIDATE( Т). 
PERCENT x 100," €" 
ENDDO 
END 


这 里 将 投票 人 数 用 变量 N 表示 ,具体 投票 人 数 在 程序 运行 时 通过 键盘 和 输入。 为 了 节省 
输入 时 间 ,程序 运行 时 输入 投票 人 数 12 人 ,程序 运行 结果 如 题解 图 11.4 所 示 。 


ЕЗ 管理 员 : “HAvN\ZUOYE11_5\ZUOYE11_5\Debug\ZUOY, cai) BES 
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[3H 


TTA т] X | 
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T= = 
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JA 
2 
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题解 图 11.4 习题 11 第 5 题 的 程序 运行 结果 


6. 分 析 : 从 题目 看 ,教室 的 信息 包括 教室 编写、 座位 数 和 是 否 锌 占用 ,班级 教室 分 配 信 
息 包括 班级 编号 、 人 数 、 有 无 占用 教室 、 教 室 编 号 和 座位 数 。20 间 教 室 的 信息 可 通过 一 个 派 
生 类 的 结构 体 数 组 来 处 理 , 班 级 教室 分 配 可 通过 班级 教室 派生 类 的 结构 体 数 组 处 理 , 由 于 没 
有 指定 班级 个 数 , 需 要 使 用 动态 数组 。 和 总 之 ,本 题 需要 建立 两 个 派生 类 。 编 程 如 下 : 


TYPE ROOM 
INTEGER NUM 
INTEGER SEAT 
LOGICAL OCCUPATION 

ENDTYPE 

TYPE CLASS ROOM 
CHARACTER x 16 NAME 
INTEGER PERSON 
LOGICAL OCCUPATION 
INTEGER ROOM 
INTEGER SEAT 
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INTEGER N, I 

TYPE(ROOM) CLASSROOM( 20) 

TYPE(CLASS ROOM), ALLOCATABLE: :CLASS1(:) 

PRINT * , "输入 班级 个 数 " 

READ x ,N 

ALLOCATE( CLASS1(N)) 

CLASSROOM = (/ROOM(1, 45, . FALSE. ), ROOM(2, 45, . FALSE. ), ROOM(3,45, . TRUE. ), & 
ROOM( 4,45, . FALSE.) ,ROOM(5,60,. FALSE. ), ROOM(6, 60, . FALSE. ), & 
ROOM(7,60, . FALSE. ), ROOM(8,60,. FALSE. ), ROOM(9,80, . FALSE. ), & 
ROOM(10, 80, . FALSE. ), ROOM(11, 80, . FALSE. ), ROOM(12,80, . FALSE. ), & 
ROOM(13, 120, . FALSE. ), ROOM(14, 120, . FALSE. ), ROOM(15, 120, . FALSE. ), & 
ROOM(16,120,.FALSE.), ROOM(17,150,. FALSE. ), ROOM(18, 150, . FALSE. ), & 
ROOM(19, 150, . FALSE. ), ROOM(20, 240, . FALSE. )/) 

DOI-21,N 

PRINT х, "请 输入 需要 分 配 的 第 ", І, "个 班 的 班级 名 称 、 班 级 人 数 " 
READ x ,CLASS1 (I). NAME 
READ x ,CLASS1( I). PERSON 
DOJ= 1,20 
IF(.NOT. CLASSROOM( J ) . OCCUPATION) THEN 
IF(CLASS1(I).PERSON < CLASSROOM(J) . SEAT) THEN 
CLASS1( I). OCCUPATION = . TRUE. 
CLASSROOM(J). OCCUPATION = . TRUE. 
CLASS1(I). SEAT = CLASSROOM( J) . SEAT 
CLASSI ( I). ROOM = CLASSROOM( J ) . NUM 
EXIT 
ENDIF 
ENDDO 
PRINT 10,CLASS1(I).NAME, CLASS1(I). PERSON, " А, ^r 0 2 48 7, CLASS1( I). ROOM, &", AEM", 

CLASS1(I).SEAT 

ENDDO 

10 FORMAT( A16, I3, A, I3, A, I4) 

END 


以 4 个 班级 为 例 , 验 证 程序 编写 的 正确 性 ,程序 运行 结果 如 题解 图 11.5 所 示 。 


HA 


38; d | y 
NAA TES ! ТӨННЕ. VERAM 


全 1 班 ” 58 人， 分 配 教室 编 ， 有 座位 66 
分 配 的 第 Р УНИН. MB 


J 7? Á, DES 5 
BORDE Е. SUB A 8 


题解 图 11.5 习题 11 第 6 题 程序 运行 结果 
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7. 分 析 : 该 题 在 例 11-3 中 已 通过 键盘 输入 、 屏 大 输出 的 方式 完成 ,现在 按 题目 要 求 只 
需要 变更 输入 输出 方式 ,这 一 点 可 以 参考 例 11-4。 程 序 改写 如 下 : 


PARAMETER(N = 10) 
TYPE STUDENT RECORD 
INTEGER NUM, S 
INTEGER A(3) 
REAL AVE 
END TYPE 
TYPE(STUDENT RECORD) CLASS1 (N) 
OPEN(10, FILE = "STUDENT. TXT" ) 
DOI-1,N 
READ(10,"(16,2X, 313)") CLASS1(I) % NUM, С.А551(1) А, & 
CLASS1(I).AVE = (CLASS1(I).A(1) + CLASS1(I).A(2) + CLASS1(I).A(3))/3.0 
END DO 
DOI=1,N 
К=0 
DOJ-21,N 
IF(CLASS1(J) * AVE» CLASSI(I) АМЕ) K= K+ 1 
END DO 
CLASS1(I).S-K*1 
END DO 
OPEN(11, FILE = "STUDENTI. TXT") 
WRITE(11, x ) 
WRITE(11, х), 按照 平均 分 排名 如 下 : ' 
WRITE(11, x | W оол == л н=л л "CTI "c C" C A 
WRITE(11, *),' 名 次 学 号 语文 数学 Жж OF EJ pK h ' 
DOI=1,N 
DOJ=1,N 
IF(CLASS1(J) %5== I) WRITE(11, 200), CLASS1(J) % S, CLASS1(J) % NUM, &CLASS1(J) % A, CLASS1 
(J) Ж AVE 
END DO 
END DO 
100 FORMAT(A, 13, A) 
200 FORMAT(I5, I10, 3I7, F8. 1) 
END 


数据 文件 STUDENT. TXT 的 内 容 如 解 题 图 11. 6 所 示 , 程 序 运 行 后 将 结果 写 人 文件 
STUDENTI. TXT, 其 内 容 如 解 题 图 11.7 Вт. 


图 11.6 习题 11 第 7 题 的 数据 文件 STUDENT. TXT 的 内 容 
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200910 


题解 图 11.7 习题 11 第 7 题 的 结果 数据 文件 STUDENTI. TXT 的 内 容 


定义 语句 
INTEGER (KIND= 4): : A 
REAL(KIND= 4): ;B 
下 上 ALCKIND 王 8) : ; C 
CHARACTER(LEN=10): :STR 
INTEGER(KIND= 4), POINTER ::PA 
REAL(KIND=4).POINTER ::PB 
REALCKIND-—8).POINTER::C 
CHARACTERCLEN-10) ,POINTER;;PSTR 
TYPE STUDENT INTEGER COMPUTER. 
ENGLISH.MATHENDTYPE 
TYPECSTUDENT);; S TYPE (STUDENT), 
POINTER: : PS 


2. (1) ] 
2 


3 
9 
(22 9 9 3 4 9 9 
(3) 11 12 13 14 15 
1 12 138 14 15 
] 2 l3 14 15 
] 2 3 14 15 
] 2 3 4 15 


3. REAL,POINTER:: P(:) 
REAL, TARGEt: : A(10) 
INTEGER MAX, MIN 
REAL T 
Р=>А 
PRINT* "f À 10 XI: " 
READ x ,P 
PRINT х, "交换 前 的 10 个 数 :" 
PRINT "(10F6.2)",P 


习题 12 解析 € 


占用 内 存 空间 ( 字 节 ) 


结构 体 变 量 S (h 12 学 市 
指针 变量 PS 占 4 tem 
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МАХ = 1 
MIN= 1 
DO I= 2,10 
IF(P(MAX)« P(I))MAX- I 
IF(P(MIN)» P(I))MIN- I 


ENDDO 

T-P(1) 

P(1) = P(MIN) 
P(MIN) = T 

T - P(10) 
P(10) = P(MAX) 
P(MAX) = T 


PRINT x , "交换 后 的 10 个 数 : " 
PRINT "(10Е6.2)",Р 
END 


4. 分 析 : 设 有 三 个 指针 变量 HEAD、P1、P2, 它 们 都 指向 派生 类 型 数据 。 首 先 将 
HEAD 置 空 ,这 是 链表 为 “ 空 ? 时 的 情况 。 用 ALLOCATE 函数 开辟 第 1 个 节点 ,输入 的 是 
第 1 个 节点 数据 时 , 令 HEAD—»PI.ff HEAD 指向 新 开辟 的 节点 ,并 使 P2 也 指向 它 。 然 
后 开辟 第 2 个 节点 ,使 P1 指向 它 ,接着 输入 该 节点 的 数据 , 令 P2%NEXT 王 >Pl1, 使 第 1 个 
节点 的 NEXT 成 员 指 向 第 2 个 节点 ,接着 使 P2 王 > P1 ,也 就 是 使 P2 指向 第 2 个 节点 ,为 建 
立 下 一 个 节点 做 准备 。 重复 如 上 操作 ， 依 此 类 推 ,建立 第 3 个 节点 到 第 8 个 节点 。 开 辟 完 成 
8 个 新 节点 后 ,将 P2%NEXT 置 空 。 建 立 链表 过 程 到 此 结束 。 

令 Р1=> HEAD, 依 次 输出 每 个 节点 信息 。 


TYPE NODE 
INTEGER NUM 
REAL AVE 
TYPE(NODE) , POINTER: : NEXT 
ENDTYPE 
TYPE (NODE) , POINTER: : HEAD, P1, P2 
NULLIFY (HEAD) 
PRINT х, "请 输入 8 个 市 点 的 数据 ” 
DOI=1,8 
ALLOCATE(P1) 
READ x ,P1 % NUM, P1 % AVE 
IF(I--1) THEN 
HEAD = > P1 
ELSE 
P2 % NEXT = > P1 
ENDIF 
P2 = > P1 
ENDDO 
NULLIFY(P2 % NEXT) 
P1 = > HEAD 
PRINT 10， 学 号 "， 平 均 成 绩 ” 
10 FORMAT(2X, A4, 4X, A8) 
DO WHILE( ASSOCIATED(P1)) 
PRINT 20, P1 % NUM, P1 % AVE 
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P1 = > P1 % NEXT 
ENDDO 
20 FORMAT( 1X, I6,4X,F6. 2) 
END 


о. 分 析 : EY Ж ЗЕ ВУ] AT ВВЕ de ЭРЛ — 178 TE IS] ERIRE. Dy Y fuj fog 
见 ,在 模块 中 定义 了 数据 部 分 和 节点 两 个 派生 类 型 ,用 以 构成 链表 , 男 外 合并 时 直接 将 链表 
1 与 链表 2 连接 ,然后 对 新 链表 按 学 号 进行 排序 。 程 序 中 分 别 定义 了 创建 链表 、 输 出 链表 、 
合并 链表 以 及 排序 操作 的 子 程序 。 


MODULE XT5 
TYPE NODE 
INTEGER NUM 
INTEGER 5СОВЕ 
ENDTYPE 
TYPE LINK 
ТҮРЕ (МОРЕ) : : SHUJU 
TYPE(LINK),POINTER::NEXT 
ENDTYPE 
CONTAINS 
! 链 表 输 出 子 程序 
SUBROUTINE OUTPUT(HEAD) 
TYPE(LINK),POINTER::HEAD,P1 
P1 = > HEAD 
PRINT 10, "学 号 ", "成 绩 " 
10 FORMAT( 2X, A4, AX, A8) 
DO WHILE(ASSOCIATED(P1)) 
PRINT 20, P1 % SHUJU 
P1 = > P1 % NEXT 
ENDDO 
20 FORMAT(1X, I6, 4X, I6) 
END SUBROUTINE OUTPUT 
ОВЕ 
SUBROUTINE CREAT(HEAD, N) 
TYPE(LINK), POINTER: : HEAD, P1, P2 


INTEGER N 

PRINT х," A", N, "个 节点 的 数据 " 
DOI=1,N 

ALLOCATE(P1) 


READ x ,P1 % SHUJU 
IF(I == 1) THEN 
HEAD = > P1 

ELSE 
P2 % NEXT = > P1 
ENDIF 
P2 = > P1 
ENDDO 
NULLIFY(P2 % NEXT) 
END SUBROUTINE CREAT 
! 排 序 子 程序 
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SUBROUTINE SORT( HEAD) 
TYPE(LINK) , POINTER: : HEAD, P1, P2, PO 
TYPE ( NODE) ::T 
P1 = > HEAD 
P2 = > P1 % NEXT 
DO WHILE (ASSOCIATED( P2) ) 
DO WHILE(ASSOCIATED(P2)) 
IF(P1 % SHUJU % NUM > P2 % SHUJU % NUM) THEN 
Т = P1 % SHUJU 
P1 % SHUJU = P2 % SHUJU 
P2 % SHUJU =T 
ENDIF 
P2 = > P2 % NEXT 
ENDDO 
P1 = > Pl % NEXT 
P2 = > P1 % NEXT 
ENDDO 
END SUBROUTINE SORT 
! 合 并 子 程序 
SUBROUTINE HEBIN(H1,H2, H3) 
TYPE(LINK) , POINTER: : H1, H2, H3, P1 
P1 = > НІ 
DO WHILE(ASSOCIATED(P1 % NEXT) ) 
P1 = > P1 % NEXT 
ENDDO 
P1 % NEXT = > H2 
НЗ = > H1 
END SUBROUTINE HEBIN 
END MODULE XT5 


! 主 程序 

PROGRAM MAIN 

USE XT5 

TYPE( LINK), POINTER: : HEAD1 , HEAD2, HEAD3 
INTEGER N 

NULLIFY(HEAD1I) 

NULLIFY(HEAD2) 

PRINT х, "建立 链表 А, 输入 链表 及 节点 数 " 
READ x , N 

CALL CREAT(HEAD1, N) 

PRINT х, "建立 链表 B, 输 入 链表 B 节点 数 " 
READ x ,N 

CALL CREAT(HEAD2, N) 

PRINT x*, "输出 链表 A 信息 ” 

CALL OUTPUT( HEAD1 ) 

PRINT x ," 输 出 链表 B 信息 " 

CALL OUTPUT(HEAD2) 

! 合并 

NULLIFY(HEAD3) 

CALL HEBIN(HEAD1,HEAD2, HEAD3) 

CALL SORT(HEAD3) 
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PRINT * , "输出 合并 后 链表 信息 ” 
CALL OUTPUT( HEAD3) 
END 


6. 分 析 : 为 了 简单 起 见 , 在 模块 中 定义 了 市 点 数据 部 分 和 节点 两 个 派生 类 型 ,用 以 方 
便 构 成 链表 ,程序 中 分 别 定义 了 创建 链表 .输出 链表 、 删 除 世 点 的 子 程序 ,在 删除 节点 的 子 程 
序 中 要 考虑 有 年 龄 相同 记录 的 情况 。 


MODULE XT6 
TYPE NODE 
INTEGER NUM 
CHARACTER * 2 S 
INTEGER AGE 
ENDTYPE 
TYPE LINK 
TYPE(NODE) : : SHUJU 
TYPE(LINK),POINTER::NEXT 
ENDTYPE 


CONTAINS 
SUBROUTINE OUTPUT( HEAD) 
TYPE(LINK),POINTER::HEAD,P1 
P1 = HEAD 
PRINT 10, "^£ 55", "性 别 " "年 龄 ” 
10 FORMAT(2X, A4, 4X, A4, AX, M) 
DO WHILE( ASSOCIATED(P1)) 
PRINT 20, P1 % SHUJU 
P1 = > P1 % NEXT 
ENDDO 
20 FORMAT(1X, I4, 5X, A3, 5X, I3) 
END SUBROUTINE OUTPUT 


SUBROUTINE CREAT(HEAD, N) 
TYPE(LINK),POINTER::HEAD,P1, P2 


INTEGER N 
PRINT х," A" N, "个 市 点 的 数据 ” 
DOI-1,N 

ALLOCATE(P1) 


READ x , P1 % SHUJU 
IF(I == 1) THEN 
HEAD = > P1 
ELSE 
P2 % NEXT = > P1 
ENDIF 
P2 = > P1 
ENDDO 
NULLIFY (P2 % NEXT) 
END SUBROUTINE CREAT 


ЛИЕ p xa 3 FE Py 
SUBROUTINE DEL(HEAD, NUM) 
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TYPE(LINK) ,POINTER:: HEAD, P, PO 
INTEGER NUM 
IF(. NOT. ASSOCIATED(HEAD) ) THEN 
PRINT х, ' 无 学 生 数 据 , 删除 失败 .' 
ELSE 
P0 = > HEAD 
P = > HEAD 
DO WHILE(ASSOCIATED(PO)) 
DO WHILE(ASSOCIATED(PO).AND.PO0 % SHUJU % AGE/ = NUM) 


P-»P0 
PO = > PO % NEXT 
ENDDO 


IF(ASSOCIATED(PO)) THEN 
IF ( ASSOCIATED( P0, HEAD) ) THEN 
HEAD = > PO % NEXT 
DEALLOCATE( P0) 
P = > HEAD 
PO => P 
ELSE 
P % NEXT = > PO % NEXT 
DEALLOCATE (РО) 
PO =>P 
ENDIF 
ELSE 
PRINT +, 'JGH ^E RS HS А ' 
ENDIF 
ENDDO 
ENDIF 
END SUBROUTINE DEL 
END MODULE XT6 


! 主 程序 单元 
PROGRAM MAIN 
USE XT6 
TYPE(LINK) ,POINTER: : HEAD 
INTEGER N, АСЕ 
NULLIFY(HEAD) 
PRINT х, "УВЕК, AC ERA 
READ x , N 
CALL CREAT(HEAD, N) 
PRINT х," ВЕ" 


CALL OUTPUT(HEAD) 
PRINT x , "输入 要 删除 的 年 龄 : " 
READ x , AGE 


CALL DEL (HEAD, AGE) 
PRINT +," Н т БЕ &" 
CALL OUTPUT(HEAD) 

END 


习题 13 解析 


І. 面向 对 象 程序 设计 方法 有 哪些 重要 概念 ?尝试 举 一 个 生活 中 的 实际 例子 ,说 明 数 据 

答 : 面向 对 象 程序 设计 方法 中 较为 重要 的 概念 有 继承 .封装 模块. 重 载 等 。 封 装 是 一 
种 把 代码 和 与 代码 相关 的 数据 捆绑 在 一 起 ,使 这 两 者 不 受 外 界 干 扰 和 误 用 的 机 制 , 它 就 像 是 
一 个 保护 需 一 样 把 代码 和 数据 保护 起 来 ,以 防止 代码 和 数据 被 保护 硕 外 部 所 定义 的 其 他 代 
码 任意 访问 ,对 保护 需 内 部 代码 和 数据 的 访问 需要 通过 特定 的 接口 来 实现 。 封 装 的 好 处 是 
有 访问 权限 的 可 通过 特定 接口 直接 访问 ,无 顷 知 道内 部 细节 和 过 程 , 无 访问 权限 的 不 能 访 
问 ,保护 了 封装 代码 数据 的 安全 。 例 如 ,银行 内 的 网 络 管理 系统 和 人 金库 是 银行 的 私有 资产 ， 
为 了 安全 ,银行 不 会 把 网 络 管理 系统 和 金库 直接 向 客户 开放 ,而 是 只 能 由 银行 内 部 特定 工作 
人 员 对 其 进行 操作 。 客 户 去 银行 取 钱 时 ,一 定 要 通过 银行 的 服务 途径 (银行 柜台 工作 人 员 或 
自动 取款 机 ) 才 能 取 到 钱 , 银 行 的 服务 途径 可 以 看 成 是 银行 对 外 服务 的 接口 ,这 个 接口 隐 含 
“背后 的 实际 工作 情况 。 

2. FORTRAN 语言 为 何 要 引入 模块 的 功能 ?使 用 模块 有 什么 优点 ? 

答 : FORTRAN 程序 设计 语言 为 适应 面向 对 象 程序 设计 方法 的 需要 ,引入 了 模块 的 功 
能 。 模 块 的 优点 是 可 实现 数据 封装 .特性 继承 .操作 重 载 `. 公 私 分 隔 等 面 回 对 象 的 特性 ,提高 
了 程序 的 安全 性 .可 靠 性 和 高 效 性 。 

3. 在 模块 中 可 定义 哪些 对 象 ? 

答 ; 模块 中 可 定义 常量 .变量 .数组 .数据 块 、. 派 生 类 型 、 果 数 子 程序 . 子 例 行 子 程序 、 接 
口 界面 块 等 。 

4. 在 模块 中 为 何 要 指定 对 象 的 公有 、 私 有 属性 ? 默认 情况 下 ,模块 中 对 象 具 有 何 种 
属性 ? 

答 : 为 了 控制 对 该 对 象 的 访问 ,需要 对 该 对 象 进 行 公 有 或 私有 属性 的 设置 。 默 认 情 况 
下 ,对象 属性 为 公有 属性 。 

5. 如 何 调用 模块 ”如何 别名 使 用 模块 中 的 对 象 ? 

答 ; 可 通过 三 种 方式 调用 模块 ,分 别 为 : 

(1) USE 模块 名 

(2) USE 模块 名 ,别名 过 数据 对 象 名 或 子 程序 名 

(3 USE RHK. ONLY: 数据 对 象 名 或 子 程序 名 列表 

其 中 方式 (2) 给 出 了 别名 使 用 模块 中 的 对 象 的 方法 。 

6. 使 用 模块 定义 重力 加 速度 G ,编写 程序 计算 投掷 物 的 投掷 距离 。 

分 析 : 本 题 一 方面 涉及 模块 知识 , 另 一 方面 涉及 物理 学 中 的 投掷 物 投 掷 距 离 的 计算 。 
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这 里 假定 投掷 时 投掷 物 离 地 高 度 为 — V,V 与 水 平面 的 夹 角 为 0, X FEP 183 
ng 


ж 


(H+ 


ОЕ] =n uw 7 


5 


EE ; 投掷 物 的 投掷 距离 为 ;二 Vcos0Xt。 
MODULE GRAVITY 

PARAMETER(G = 9.8) ! 实 现 重力 加 速度 的 定义 

REAL V, Н, ТНЕТА,Т,5 
END MODULE 


PROGRAM TOUZHI 

USE GRAVITY 

PRINT ж, "请 输入 投掷 点 离 地 高 度 .初始 投掷 速度 和 投掷 速度 与 水 平 线 的 夹 角 " 

READ x ,H, V, THETA 

THETA = THETA x 3. 1415926/180 

T= SIN(THETA)/G + SQRT( (2 х (Н+ (Vx SIN(THETA) ) хх 2/2/G) )/G) 

S= Vx COS( THETA) x T 

PRINT х," Ej HB", H, "以 速度 ",V, "ЭЕ", THETA, "90/5, AE p k IB EON : ",5 
END 


测试 算 例 1: 投掷 点 离 地 高 度 9.8 米 ,以 10 米 / 秒 的 速度 竖 直 向 上 抛 出 ,程序 运行 结果 
如 题解 图 13.1 所 示 。 


9.888888 в.й@ййй@ EF 1.570796 
дам "a : E tad 


题解 图 13.1 测试 算 例 1 的 输入 数据 及 其 运行 结 采 


测试 算 例 2. 投掷 点 离 地 高 度 9.8 米 ,以 10 米 / 秒 的 速度 水 平 抛 出 ,程序 运行 结果 如 题 
解 图 13. 2 所 示 。 


i 解 图 13.2 测试 算 例 2 的 输入 数据 及 其 运行 结果 


测试 算 例 3: 投掷 点 离 地 高 度 9.8 米 ,以 10 米 / 秒 的 速度 斜 问 上 45 度 抛 出 ,程序 运行 
果 如 题解 图 13.3 所 示 。 
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gium н d T 
ПАЛ ана ЕЛЕНЕ ЕА 


9.890909 以 速度 10.00000 支 角  8.7853981 


| Е, wif ER 11.73655 


题解 图 13.3 测试 算 例 3 的 输入 数据 及 其 运行 结果 


7. 为 什么 要 引入 接口 界面 块 功能 ? 它 与 EXTERNAL 语句 功能 有 何 异 同 ? 

答 : 用 户 在 编写 程序 时 总 会 遇 到 一 些 特定 的 情况 , 原 有 的 程序 功能 无 法 处 理 这 些 特殊 
情况 ,只 能 通过 接口 界面 块 的 功能 实现 。 这 些 特定 情况 包括 : 

(1) 困 数 返回 值 为 数组 时 。 

(2) 函数 返回 值 是 长 度 未 知 的 一 个 字符 串 时 。 

(3) 函数 返回 值 为 指针 时 。 

(4) 所 调用 的 子 程序 参数 数目 不 固定 时 。 

(5) 所 调用 的 子 程序 形式 参数 是 一 个 数组 片段 时 。 

(6) 所 调用 的 子 程序 改变 参数 传递 的 位 置 。 

(7) 调用 外 部 子 程序 时 使 用 关键 字 实 参 变 元 或 缺 省 的 可 选 变 元 。 

(8) 所 调用 的 子 程序 扩展 了 赋值 号 的 使 用 范围 。 

EXTERNAL 语句 仅 是 在 主 调 程序 单元 中 声明 被 调用 的 子 程序 是 一 个 外 部 子 程序 ,无 
法 处 理 上 述 8 种 特殊 情况 。 

8. 在 什么 情况 下 必须 使 用 接口 界面 块 ? 

Ж: 在 以 下 8 种 情况 下 必须 使 用 接口 界面 块 。 

(1) 函数 返回 值 为 数组 时 。 

(2) 函数 返回 值 是 长 度 未 知 的 一 个 字符 串 时 。 

(3) 函数 返回 值 为 指针 时 ，。 

(4) 所 调用 的 子 程序 参数 数目 不 固定 时 。 

(5) 所 调用 的 子 程 序 形式 参数 是 一 个 数组 片段 时 。 

(6) 所 调用 的 子 程序 改变 参数 的 传递 位 置 。 

(7) 调用 外 部 子 程序 时 使 用 关键 字 实 参 变 元 或 缺 省 的 可 选 变 元 。 

(8) 所 调用 的 子 程序 扩展 了 赋值 号 的 使 用 范围 。 

9. 接口 界面 块 中 声明 的 子 程序 参数 与 实际 的 子 程序 参数 有 何 异 同 点 ? 

答 : 相同 点 : 都 是 形式 参数 。 

不 同 点 : 接口 界面 块 中 声明 的 子 程序 参数 只 是 一 个 使 用 接口 中 的 类 型 申明 ， 
序 是 否 调用 ,都 不 会 获得 实际 的 储存 空间 ; 而 实际 子 程序 中 的 参数 在 被 调用 时 与 实 参 共享 
存储 空间 ， 


10. Æ FORTRAN 语言 中 ,通过 什么 功能 实现 重 载 ? 重 载 的 本 质 是 什么 ? 
Z. Æ FORTRAN 语言 中 ,可 通过 位 于 模块 内 的 接口 界面 块 实现 重 载 。 重 载 的 本 质 了 驶 
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是 突破 其 原 有 功能 的 某 些 限制 ,扩展 其 应 用 。 

11. 实现 重 载 时 ,声明 形式 参数 类 型 要 使 用 INTENT(IN) 和 INTENT(OUT) 属 性 ,这 
两 个 属性 有 何 作 用 ? 

答 : INTENT(IN) 声 明 等 待 子 程序 中 的 变量 是 只 读 属 性 的 变量 ,参数 只 能 从 调用 程序 
传递 给 子 程序 ; INTENTCOUT) 声 明 等 待 子 程序 中 的 变量 只 能 从 子 程序 传递 到 被 调用 的 

12. 使 用 哺 数 子 程 序 重 载 功能 ,实现 函数 AREA。 如 果 用 一 个 实数 调用 АКЕА, , 则 参数 
看 作 是 圆 的 半径 ,计算 圆 的 面积 并 返回 。 如 果 用 两 个 实数 调用 AREA, 则 参数 看 作 是 圆 的 
内 径 和 外 径 ,计算 圆 环 面 的 面积 并 返回 。 尝 试 编写 主 程序 和 模块 单元 程序 。 

分 析 : 本 题 意 图 在 于 使 一 个 函数 既 可 以 算 圆 的 面积 ,也 可 以 算 圆 环 的 面积 。 相 当 于 把 
一 个 计算 圆 面 积 的 孔 数 重 载 成 一 个 也 可 以 计算 圆 环 面 积 的 孙 数 。 


MODULE ZUOYE12 1! 定义 模块 ZUOYE12 

IMPLICIT NONE 

INTERFACE AREA ! 虚拟 函数 AREA 
MODULE PROCEDURE AREA CIRCLE ЕМЕА РЕ НУ PREX AREA CIRCLE 
MODULE PROCEDURE AREA RING ! 定 义 等 待 选择 的 函数 AREA RING 

END INTERFACE 

CONTAINS 

FUNCTION AREA CIRCLE(R) ! ÉE V PR ZA Е ЛЕ AREA CIRCLE 
IMPLICIT NONE 
REAL, INTENT(IN)::R ! 定 义 X 是 只 读 属 性 参数 ,参数 只 能 从 外 向 内 传递 
REAL AREA CIRCLE 1 图 数 返 回 值 是 实 型 
AREA CIRCLE = 3.1415926 х Ех Е 1 计算 圆 的 面积 

END FUNCIION 

FUNCTION AREA RING(R1, R2) 1! 定义 函数 子 程序 AREA RING 
IMPLICIT NONE 
REAL, ІМТЕМТ(ІМ) ::В1, R2 !E V R1,R2 日 能 从 外 向 内 传递 
REAL AREA RING l PK 025 El {B E E 50 


IF(R1 > R2) AREA RING = 3.1415926 x (Rl xx 2- R2 хх2) РА 
IF(R1 < R2) AREA RING = 3.1415926 x (R2 xx 2— R1 xx 2) 

END FUNCTION 

END MODULE 

! 主 程序 一 : 

PROGRAM EXAM13 12 


USE ZUOYE12 ! 调 用 模块 ZUOYE12 
PRINT * , "输入 一 个 半 往 值 ,计算 圆 的 面积 ” 
READ х ,R 


PRINT x , "半径 为 ",r," 的 圆 的 面积 是 : ", AREA(R) 
PRINT x , "输入 两 个 半径 值 , 计算 圆 环 的 面积 " 

READ x ,R1,R2 

PRINT x , "半径 为 ",R1,R2," 的 圆 环 的 面积 是 : ", АВЕА(1.0,2.0) 


END 

测试 程序 输入 数据 和 程序 运行 结果 如 题解 图 13.4 所 示 。 

13. 统计 某 钟 点 工 的 总 工作 时 间 ,以 小 时 和 分 钟 计时 。 编 写 程序 实现 加 法 运算 符 重 载 ， 
使 其 能 够 计算 时 间 的 加 法 。 如 1 小 时 20 分 加 2 小 时 45 分 的 结果 是 4 小 时 5 分 钟 。 

分 析 : 常规 加 法 运算 是 十 进 制 数 的 运算 ,这 里 对 时 间 数 据 进 行 加 法 计算 ,实质 是 分 钟 运 


` LARA 19 
ЛАТ X. 


E 
Bi 
10 
2 
x 


T 


Te 


ET 


习题 13 解析 


dcn 314.1592 


Z} 10.00808 12.008008 的 圆 环 的 面积 是 ， 9.424778 


1573 
按 任 音 键 继续 ... 


4| a 


题解 图 13.4 输入 数据 及 其 运行 结果 


算 六 十 进 制 的 加 法 运算 ,可 以 用 加 法 的 重 载 实现 。 


MODULE ADD TIME 
TYPE TIME 
INTEGER(1) HOUR, MINUTE 
END TYPE TIME 
INTERFACE OPERATOR( + ) 
MODULE PROCEDURE ADD T 

END INTERFACE 

CONTAINS 

FUNCTION ADD T(T1, T2) 


TYPE(TIME),INTENT(IN):: Т1 


TYPE(TIME) ADD T 


! E V F Арр TIME 
! 4E ЖО] ЇН] К ^E 28 


! 操 作 符 形式 的 重 载 ,操作 符 为 + 
! 重 载 的 功能 由 等 待 子 程序 ADD T 完 成 


1735 BH PR 7/7 ADD T 
‚Т2 ! 声 明 形 参 和 图 数 名 均 为 TIME 类 型 


INTEGER MIN ! 中间 临时 变量 
MIN = T1. MINUTE + T2. MINUTE 

ADD T.MINUTE = MOD(MIN, 60) ! 计 算 分 钟 数 
ADD Т. HOUR = T1. HOUR + T2. HOUR + MIN/60 ! 计算 小 时 数 


END FUNCTION 
SUBROUTINE PUT TIME(T) 


TYPE( TIME), INTENT(IN)::T 
PRINT 100, T. HOUR, T. MINUTE 


100 FORMAT(1X, ІЗ, "小 时 "， 


END SUBROUTINE 
END 


I2, "分 钟 " ) 


! 编写 简单 的 主 程序 调 用 模块 ,观察 是 否 实 现 对 运算 竺 +“ 的 重 载 


PROGRAM EXAM13 

USE ADD TIME 
TYPE(TIME) T1, T2, T3 
Т1 = TIME(1, 20) 

T2 = TIME(2, 45) 

T3 = T1 + T2 

CALL PUT TIME(T3) 
END 


程序 运行 结果 如 题解 图 13.5 所 示 。 


шя ===; >н Nt ono неле фрезы. EHE шарана 


题解 图 13.5 习题 13 第 13 题 的 运行 结果 
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模拟 测试 1 参考 答案 4 


一 、 选 择 题 (在 每 小 题 给 出 的 4 个 莹 案 选项 中 只 有 一 项 是 正确 的 ,与 出 正确 的 选项 。 每 
题 1] 分 , 共 30 分 ) 


re 
sale е а еа о ево о о ев еъ 


二 、 填空 题 (每 空 2 分 , 共 20 分 。 请 将 以 下 程序 空缺 补充 完整 ) 
1. (D N/100 
(2) MOD(N/10.10) 
2. (330 
(4) MOD(I.2)/—0 
3. (5) EXIT 
(6) I>] 
4. (7) PARAMATER(N- 10) 
(8) CALL SORTCA.ND 
(9) N—K 
(10 ACOD» A(J+1) 
=., 阅读 程序 , 写 出 程序 的 运行 结果 (每 题 3 分 , 共 15 分 ) 
1. 运行 结果 : 
6 


cn 


- 


] 
1 2 
i X š 
l 2 3 4 
3. 运行 结 采 : 
15 
4. ÍT 
1 2 


ып 
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3 4 
5 6 

13 5 
2 4 6 


.运行 结果 ， 


40.0 


、 编 程 题 (第 1 小 题 7 分 ,第 2 小 题 8 分 ,第 3、4 小 题 各 10 分 , 共 35 分 ) 


[m 


REAL X 
READ x ,X 

IF(X«0) 

Y = EXP(2 x SQORT(ABS(X))) + COS(X) 
IF(X220) Y=2 

IF(X»0) Y= X/(1* SORT(1* Xxx 2)) 
PRINT x ,Y 


PRINT x ,M 
END 


DO I= 2,1000 
М= 0 
DO J = 1, I/2 
IF(MOD(I, J)= =0)M=M+J 
END DO 
IF(M= = I) PRINT х ,M 
END DO 
END 


PARAMETER (N = 10) 

INTEGER A(N) 

READ x ,A 

MAX = A(1) 

MIN = A(1) 

DO I= 2,N 
IF(A(I)> MAX) МАХ=А(Т) 
IF(A(I)<MIN) MIN =А(Т) 

END DO 

PRINT x , MAX — MIN 

END 
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模拟 测试 2 参考 答案 4 


一 、 选 择 题 (在 每 小 题 给 出 的 4 个 答案 选项 中 只 有 一 项 是 正确 的 , 写 出 正确 的 选项 。 每 
题 ] 分, 共 30 分) 


EE 
nr 


Dom 
о а а в еа р аер 


二 、 填 空 题 ( 每 空 2 分 , 共 20 分 。 请 将 以 下 程序 空缺 补充 完整 ) 
1. (D C=CHAR(ICHAR(C) — 32) 
(2) C- CHAR(ICHAR(CO) 4-32) 
2. (3) K+1 
(4) N/10 
(5) ENDDO 
3. (6) INTEGER A(4,5) 
(7) A(1.J) 
(8) A(1,J)<= AVERAGE 
4. (9) FACI—1 
(10 FAC1=N * FAC(N—1) 
三 、 阅读 程序 , 写 出 程序 的 运行 结果 (每 题 3 分 , 共 15 分 ) 
1. 运行 结果 : 
20 


co vU CO So [м 


模拟 测试 2 参考 答案 


2 5 
3 6 
iS TRAE: 
5=0. 0 
ZÍTRA 
1 
l 1 
2 ] 
1 3 3 1 
1 4 6 4 | 


四 、 编 程 题 (第 1 小 题 7 分 ,第 2 小 题 8 分 ,第 3、4 小 题 各 10 分; 共 35 分) 


L; 


INTEGER M, N 
READ x ,M,N 
PRINT«,("-",I-21,N) 
DO I= 1,M-2 
PRINT ж," |", ("",J=1,N-2),"|" 
ENDDO 
PRINT«,("—",I-1,N) 
END 


INTEGER M, N1, N2, N3 
READ * ,M 
N1 = M/100 
N2 = MOD(M, 100) /10 
N3 = MOD(M, 10) 
IF(Nl xx 3 + N2 xx 3 + N3 xx 3 = = M)THEN 
PRINT x ,M "是 水 仙 花 数 " 
ELSE 
PRINT * ,M, "不 是 是 水 仙 花 数 " 
ENDIF 
END 


INTEGER: :SUM = 0 
LOGICAL FLAG 
DO I= 3,1000 
FLAG = . TRUE. 
DO J =2,S0RT(1.0 x I) 
IF(MOD(I,J) = = O)FLAG- .FALSE. 
ENDDO 
IF(FLAG)SUM = SUM + I 
ENDDO 
PRINT x , SUM 
END 


. PARAMETER(N = 10) 


INETGER А(М, М), 51,52 
READ x ,A 
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51=0;52=0 
DO I-1,N 
S1 -SI-TA(I,I) 
922924 A(I,Nt1- I) 
ENDDO 
PRINT х , S1, S2 
END 


模拟 测试 3 参考 首 案 4 


一 、 和 选择 题 ( 在 每 小 题 给 出 的 4 个 答 守 选项 中 只 有 一 项 是 正确 的 , 写 出 正确 的 选项 。 每 
нт 1 分 , 共 30 分 ) 


еге 
рр 
rr 
е 


二 、 填 空 题 ( 每 空 2 分 , 共 20 分 。 请 将 以 下 程序 空缺 补充 完整 ) 
1. (120 
(2) I< 100 
(3) K+1 
2. (4) P—I 
(5) A(P)> ACD 
(6) ACD — ACP) 
3. (7) TYPE( STUDENT) ;; STU(50) 
(8) 5, FILE—"SHUJUI. TXT" 
(9) STUCD. SCORE(6)< STU (J). SCORE(6) 
(10 STUCD % ORDER=K+1 
=., 阅读 程序 , 写 出 程序 的 运行 结果 (每 题 3 分 , 共 15 分 ) 
1. 运行 结果 : 
6 1.0 
2. BÍTA: 
1234 
2341 


9 25.0 
4. 运行 结 
16. 0 
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0 


l. REAL X, Y 
READ x , X 


IF(X«- 1)THEN 
Y2-X*X-X-2 
ELSEIF(X <= 1)THEN 
Y=SIN(Xx X- 1) 
ELSE 
Y-SQRT(X* X— 1) 
ENDIF 
PRINT x ,Y 


READ x ,N 
S= 0 
F=1 
DO I=1,N 
F =F x I 
S=S+F 
ENDDO 
PRINT x , 5 
END 


3. INTEGER N 
INTEGER, ALLOCATABLE: : A(:,:) 
READ х ,N 
ALLOCATE(A(N, N) ) 
DO I= 1,N 
A(I,1)=1 
A(I,I)=1 
ENDDO 
DO I= 3,N 
DO J=2,I-1 
A(I,J) = A(I- 1,07— 1) * A(I- 1,J) 
ENDDO 
ENDDO 
DO I= 1,N 
PRINT 10, (A(1,J),J=1,1) 
ENDDO 
10 FORMAT(« I» I6) 
DEALLOCATE|(A) 
END 


4. PROGRAMMAIN 
INTEGER N 
REAL TIXING 


模拟 测试 3 参考 答案 18) 


READ + ,N 

S = TIXING(0. 0, 2. 0, N) 
PRINT x ‚5 

END 


REAL FUNCTION TIXING(A,B,N) 
REAL A, B, H, S, FUNC 
INTEGER N 
FUNC(X) =2 x X+ 4 
H- (B- A)/N 
5-20 
DOI-1,N 

5=5 + (FUNC(A+ (1-1) + Н) + FUNC(A- I * H)) x H/2.0 
ENDDO 
TIXING = S 
END 


MI s< A 


实验 报告 模板 € 
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上、 实验 目的 及 要 求 ( 本 实验 所 涉及 并 要 求 千 握 的 知识 操 ) 


、 实 验 内 容 及 结果 (实验 内 容 的 分 析 和 算法 流程 图 , 源 程序 代码 和 程序 运行 结果 ,可 续 奥 ) 


.实验 小 结 ( 对 实验 结果 进行 分 析 ,描述 实验 心得 体会 及 改进 意见 ) 


指导 教师 : 


ASCII {Йй 
000 
001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
011 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 


ASCII 15 F + Zim 1 — 


ASCII {ЙН 


Ü. 


045 


043 
5 


39 
50 
52 
5T 
56 
59 


061 


Ü. 
Ü 
09: 
Ü 
Ü. 
Ü. 
063 
Ü 


6 
65 


d cw 
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ASCII ffi 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 


x 


A 


p 
= 


— 


— 


Fe 
— 


[o 
ji 
x m 


ASCII {й 


附录 в ASCII 12852 1328 03 — RAR 185 


续 表 
ASCII 值 字符 ASCII (Н 字符 
156 | 
157 i 
158 上 
159 а 
160 г 
161 = 
162 т 
163 F 
164 = 
165 + 
166 - 
167 Е 
168 T 
169 T 
170 š 
171 = 
172 r 
173 г 
174 + 
175 + 
176 2 
177 E 
178 Ё 
179 - 
180 І 
181 | 
182 Ё 
183 a 
184 p 
185 Г 
186 т 
187 
188 с 
189 n 
190 г 
191 Ф 
192 0 
193 Q 
194 8 
195 > 
196 j 
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ASCII fB 
230 
239 
240 
241 
242 
243 
244 
245 
246 


ASCII 值 


E xni 


І. 数值 运算 胃 数 


函数 
ABS ( x) C IABS, DABS, 
CABS) 


AIMAG(c) 


АІТ » kind D (DINT) 


ANINT Cr |, kind p 
CDNINT) 


CEILING(r) 
CMPLX(a,b| ,kind |) 
CONJG(c) 


DBLE(num) 


DIM (a,b) 
EXPONENT (x) 


FLOOR (r) 
FRACTION(x) 

INT Cil, kind |) CIFIX. 
IDINT) 

LOGICAL(al ,kind |) 
MAX(a. b. ) 

MIN (a ` b p*r. ) 


MOD(a.b) 


FORTRAN БЕ Е 2 - 


返回 参数 x 的 绝对 从 


返回 复数 с 的 虚 部 


返回 舍 去 小 数 后 的 参数 但 


返回 最 接近 参数 r УЗ RUE 


返回 一 个 等 于 或 大 于 上 的 最 小 整数 


返回 以 a 值 为 实 部 ,b 值 为 虚 部 的 


返回 c fg dE gu 5 g 


把 参数 转换 成 双 精 度 浮 点 数 


a 一 b>0 时 返回 a 一 b, 否 则 返回 0 
返回 使 用 n x 2° 的 模式 来 表示 浮 点 数 
x 时 (n 为 小 于 1 的 小 数 ),“ 指 数 ” 部 
4r e 的 数值 

返回 等 于 或 小 于 的 最 大 整数 

返回 使 用 nx 2° 的 模式 来 表示 浮 点 数 
x 时 , “小数 ”于 分 n НИВ 


转换 不 同类 型 的 LOGICAL 变量 ,把 
a 变量 转换 成 赋值 kind 类 型 的 
LOGICAL 变量 

返回 最 大 的 参数 但 

返回 最 小 的 参数 值 

计算 a/b 的 余数 。 当 参数 为 浮 点 数 
时 ,返回 (a 一 int(a/b)) xb) 的 值 


PK RUB 28 А! 
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同意 计算 a/b 的 余数 。 使 用 和 MOD 

不 同 的 公式 来 计算 。 参 数 为 整数 时 ， 
MODULOCa.b) 

(b)) * b; 参数 为 浮 点 数 时 返回 a 一 

FLOOR(a/ b) * b 

b>0.0 时 ,返回 大 于 а) Луй? ы, ЖА 

值 。b<0.0 时 ,返回 小 于 a 的 最 大 浮 


Xx 为 实 型 ,i 为 


NEAREST«(a.b) 点 数值 。 因 为 浮 点 数 的 保存 会 有 误 
差 , 这 个 函数 可 用 来 查看 真正 的 保存 
数值 

NINT (a |, kind |) — | 

| . 返回 最 接近 参数 a 的 整数 值 

(DNINT) 

REAL() JUL 1# ЖШ Ж НЕ PR LE ea ЖЩ 

RRSPACING(x) 返回 SPACING(x) 的 倒数 

SCALE'(x ,1) 16 [pl xx (2 xx 1) 


SET EXPONENT(x.n) | 返回 FRACTIONCx) x (2 x* n) 


SIGN (a, b) (ISIGN, | b>=0 时 ,返回 ABS(a);b<0 时 , 返 
DSIGN) 回 一 ABS(a) 
返回 x 值 作 能 接受 的 最 小 变化 值 。 
因为 浮 点 数 的 有 效 位 数 是 有 限 的 , 它 
SPACING(x) 没有 办 法 真正 保存 连续 的 数值 。 这 
个 函数 会 返回 用 浮 点 数 保存 x 值 时 
所 能 接受 的 最 小 数值 间隔 


把 source 参数 中 的 内 存 数 据 耳 接 转 


source 为 任 意 
TRANSFER € source. 类 型 ,mold 为 任 


换 成 参数 mold 所 使 用 的 类 型 ,size 可 


mold| ,size |) 意 类 型 , size 为 
"Т 


以 用 来 赋值 要 转换 多 少 笔 数 据 


2. 数学 困 数 


PR 数 
ACOS(r) (DACOS) 计算 ARCCOSINE(») 
ASIN(r) (DASIN) 计算 ARCSINE(r) 
ATAN(r) (DATAN) 计算 ARCTANGENT(r) 
ATAN2(a,b) (DATAN?) 计算 ARCTANGENT (a/b) 
COS(x) (CCOS,DCOS) 计算 COSINE(x) 
COSH(r) (DCOSH) 计算 HYPERBOLIC COSINE(x) 
EXP(n) CCEXP.DEXP) WA B EOS S erm fü 


LOG( x) CALOG .DLOG. CLOG) 计算 以 日 然 对 数 e DN Ie BU X AUS 
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函数 值 类 型 
实 型 
FA 
实 型 
FA 
实 型 , 复 型 
FA 
实 型 , 复 型 
实 型 , 复 型 


附录 С FORTRAN 库 函 数 We 


РЁ 数 PR ЖС [Н 2 WU 

LOG10 (х) С ALOG10, DLOG10, о, —— 

„е 计算 以 10 为 底 的 对 数值 5р A 
SINGO (CSIN, DSIN) 计算 SINE(x) 实 型 , 复 型 
SINH(r) (DSINH) 计算 HYPERBOLIC SINE(x) 实 型 
SQRT(x) (CSQRT, DSQRT) 计算 x 的 开平 方 值 实 型 , 复 型 
TAN(r)(DTAN) 计算 TANGENT(r) 实 型 
TANH(r) (DTANH) 计算 HYPERBOLIC TANGENT(r) 实 型 


3. TITRA 


PR Ж 函数 值 类 型 
ACHAR() 返回 ASCII 字符 表 上 编号 为 i 的 字符 字符 型 
ADJUSTL(s) 返回 向 左 对 齐 的 字符 串 s 字符 型 
ADJUSTR(s) 返回 向 右 对 齐 的 字符 串 s qq M 


返回 计算 机 所 使 用 的 字 集 表 上 编号 为 1 的 字 
CHAR(GiL ,kind]) ^j. PC 上 使 用 的 字 集 表 为 ASCI 表 , 所 以 在 
PC 上 CHAR 函数 与 ACHAR 函数 效果 相同 
IACHAR(c) 返回 字符 cc 所 代表 的 А5СП #7 
返回 字符 c 在 计算 机 所 使 用 的 字 集 表 中 的 编 
号 。 在 PC 上 ICHAR 5 IACHAR 效果 相同 
返回 子 字 符 串 b 在 母 字 符 串 a 中 第 一 次 出 现 的 
bim. WRR 3 个 参数 back 有 给 定 真 人 ,代表 | а,Ь 为 字符 型 ， 
从 后 面 开 始 搜 索 , 返 回 子 字符 串 b 在 母 字 符 串 | back 逻辑 型 
a 中 最 后 一 次 出 现 的 位 置 


ЇСНАКСс) 


INDEX(a,b[ ,back]) 


LEN(s) iR Hl E Яа s 的 长 度 

LEN TRIM(s) iR [nl $ EB s 除去 字 尾 空格 从 后 的 长 度 
LGECa.b) ЖЯ ЧГ a.b 两 个 字符 串 a>= b 是 否 成 立 
LGT(a,b) 判断 对 于 а,Ь BIA E ER а> b 是 否 成 立 


LLE(Ca,b) 判断 对 于 a.b Bj PETER а<=Ь 是 否 成 立 
LLT(a,b) 判断 对 于 alb 两 个 字符 串 a<b 是 否 成 立 


REPEAT«(s;1) 返回 一 个 重复 1 次 s 的 字符 串 N” мн 
返回 字符 串 b 所 包含 的 任意 字符 在 字符 串 a 中 
SCAN(a,b| ,back |) 第 一 次 出 现 的 位 置 。 如 果 @8 8 25 AM, I| R 
回 最 后 出 现 的 位 置 
返回 把 字符 串 s 尾部 的 空格 符 除 去 后 的 字 
+J EB 
REETIS string FARA EA TITE set 
VERIFY (string, set | P HHEH 3 T , 8 Inl ^E E85 string 中 第 一 个 出 
„Баск |) BUNTE CT NOB set 字符 的 位 置 。 如 果 back 
有 给 定 直 值 , 则 返回 最 后 一 次 出 现 的 位 园 


ab 为 字符 型 ， 
back 722 $H NJ 


TRIM(s) 


string, set 为 字 
ITH ,back Jj 32 
sim 
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4. ZH ek 


2 fy 会 X 

array 任何 维 数 的 数组 

vector - 维 数 组 

matrix 二 维 数 组 

dim 数组 的 维 数 , 是 一 个 整数 
mask 数组 的 逻辑 运算 

L |] 括号 中 表示 可 忽略 的 参数 


"E" 
ALL(mask| ,dim |) 


ALLOCATED 


(array) 


ANY(mask| ,dim |) 


COUNT( mask 
| .dim p 


CSHIFT (array, shift 
Г.а D 


DOT _ PRODUCT 
(vector a,vector b) 
DPROD ( vector a. 
vector b) 

EOSHIFT € array, 
shift| . boundary | 

| ,dim D 
LBOUND(array 

| .dim D 

MATMUL (matrix _ 


a.matrix b) 


MAXLOC (array 
[ * dim | | ` mask | ) 


MAXVAL(array 
L е dim || E mask | ) 


XT ЖСН 15027 FA T «ELSE B A 76 жир Yo ЖЇР 
就 返回 县 值 ,否则 返回 假 值 


检查 一 个 可 变 大 小 的 数组 是 否 已 经 声明 大 小 


对 数组 做 好 辑 判断 ,只 要 有 一 个 元 素 合 乎 条 件 
就 返回 真 值 。 用 法 与 ALL 很 类 似 ,只 差 在 判 
断 时 所 使 用 的 条 件 由 “全 部 ” 改 成 “任何 ” 


对 数组 做 巡 辑 判断 ,返回 合乎 条 件 的 元 系数 目 


数组 的 元 系 值 会 以 条 一 维 为 基准 来 循环 交换 
内 容 shift 表示 平移 的 量 值 ,dim 表示 针对 这 | shift 为 整 型 


- 维 来 做 交换 
u | | 任何 基本 数值 
A : n E z k IE ~ TI = AIF. j | T 
把 两 个 一 维 数组 当成 向 量 来 做 内 积 iiit 


EJ FE IB BN A T8] HE D VALL. šE ll TË 2 DORS HE T 
MA IL PPR 
把 数组 以 某 个 维 数 为 基础 ,移动 数组 中 的 元 

ж. Boundary 有 仁 时 ,移动 后 剩 下 的 位 置 会 设 

'H JN, boundary 的 值 


返回 数组 声明 时 的 下 限 值 


对 两 个 二 维 数 组 所 存放 的 矩阵 内 容 做 和 矩阵 相 
乘 运算 ,返回 值 是 二 维 数组 

找 出 数组 最 大 值 的 所 在 位 置 ,返回 值 可 能 是 整 
数 或 是 整数 数组 ; 当 数 组 array 为 一 维 时 , 返 
回 一 个 整数 ; 当 数 组 为 n 维 数组 时 ,返回 大 小 
为 n 的 一 维 数 组 


返回 数组 中 的 最 大 元 素 什 


PR ЖС {Н 2 A 
3X7 ЯҢ [Н 
37 ЯҢ [Н 


3X ЯҢ. [Н 


任何 基本 数 
值 类 型 


数组 


EE. 


MERGE(true array. 


false array| , mask |) 


MINLOC (array 
| . dim || , mask |) 
MINV AL (array 
| mask |) 


PACK (array, mask 
| vector |) 


PRODUCT (array 
| ,dim |l ,mask |) 


RESHAPE ( data, 
shape) 


SHAPE(array) 


SIZE(array| ,dim |) 


SPREAD ( source, 


dim, псоріеѕ) 


SUM (array| ,dim | 
| ,mask |) 
TRANSPOSE 
(matrix) 
UBOUND(array 

| .dim |) 
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true array,false array 大 小 要 完全 相同 ,merge 
会 根据 mask 运算 的 结果 来 决定 要 取 true 
array 或 false array 的 值 到 返回 的 矩阵 当中 ， 
mask 运算 中 某 一 位 置 为 “上 雁 ” 时 ,会 十 入 true_ 
array 的 值 ; 为 “ 否 ” 时 ,会 十 人 入 false array 的 值 


返回 数组 中 最 小 元 系 的 位 置 


返回 数组 中 最 小 元 条 的 从 O 


根据 数组 在 内 存 中 的 排列 顺序 ,按照 mask ја 
算 的 逻辑 信 ,把 判断 成 立 的 数 信 从 array "PLC 
出 , 放 到 返回 值 的 一 维 数组 中 。 当 vector 没有 
输入 时 ,返回 值 的 数组 大 小 为 array 中 条 件 成 
立 的 数值 数目 。vector 有 输入 时 ,返回 值 的 数 
组 大 小 与 vector 相同 


返回 数组 中 所 有 元 系 的 相 乘 人 


通过 shape 的 设置 ,把 一 串 数据 “ 整 型 "好 后 ,再 
传 给 一 个 数组 。 这 个 了 清 数 用 来 转换 不 同类 型 
的 数组 数据 ,参数 data 会 经 过 数组 在 内 存 中 的 
排列 顺序 ,把 它 的 内 容 视 为 一 长 串 数字 。 和 参数 
shape 可 以 把 这 组 数字 数据 视 为 它 所 设置 的 数 
组 类 型 

返回 数组 的 维 数 及 大 小 ,假设 array 为 п 维 数 
组 , 则 返回 值 为 大 小 为 n 的 一 维 数组 


返回 数组 大 小 


把 一 个 数组 复制 到 比 自 己 高 一 维 的 数组 中 , 复 
制 次 数 由 ncopies 来 决定 ,而 复制 的 “基础 位 
EL” ДЕН dim 来 决定 要 在 哪 一 维 。 右 参数 
source 为 一 个 数值 ,返回 值 是 大 小 为 ncopies 
的 一 维 数组 。 夺 参数 source 是 大 小 为 (di sdz, 
,d,s) 的 数组 , 则 绪 采 是 大 小 为 (di，, de, eee, 


daim—1 » ncopies „Чаш, » *** sda) 的 Ж zH 


IA 2 zH Jú # ЖП 


返回 一 个 转 置 和 矩阵 


返回 数组 声明 时 的 下 限 值 


续 表 
函数 值 类 型 


类 型 与 输入 
的 数组 相同 


array 为 任何 类 
型 的 数组 


整 型 数组 


数组 


source 为 任意 
ncopies 为 整 型 


数组 类 型 


二 维 数 组 


整 型 或 数组 
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UNPACK(vector. 
mask. field) 


续 表 
功 能 变量 类 型 | 函数 值 类 型 
根据 迎 辑 运算 的 结果 ,返回 一 个 变型 的 多 维 数 
KAMA vocor „жик. еш. | 4 ЕЖЕ | ы 


型 数值 


UNPACK 函数 刚好 与 pack 相反 , 它 是 用 来 把 
- 维 数组 转换 成 多 维 数组 


5. 查询 状态 困 数 


Kx 
ASSOCIATED 


(pointer | ,target |) 


ВІТ SIZECG) 


DIGITSCr) 


EPSILON (r) 


HUGE'(x) 
KIND(3) 
MAXEXPONENT 
(x) 
MINEXPONENT 
(x) 


PRECISION( x) 


PRESENT(x) 


RADIX(x) 


КАМСЕ(х) 


SELECTED _ INT _ 


KkKIND( 


SELECTED REAL 


KIND(p. r) 


TINY(r) 


检查 指针 是 否 已 经 设置 目标 。target 有 输入 
时 , 则 检查 pointer 是 否 指 向 target 变量 


返回 参数 1 占 了 多 少 bits 的 内 存 空 间 


返回 浮 点 数 r 使 用 多 少 bits 来 记录 “数字 ”的 部 
a 


ЕЗШЕ СЕУ HAR, H 8 RC r [у 28 7l 
ZO Щщ 28 HE. E íR [d] spacing Cl. 0 4) 或 
spacing(l. O 8) ПА, $ A FROR E TE SA SBT, 
返回 ѕрасіпе (1.0 4), 也 就 是 当 变 量 为 1.0 时 
所 能 计算 的 最 小 数字 间隔 大 小 


返回 参数 x 的 类 型 所 能 记录 的 最 大 数值 

返回 参数 声明 时 使 用 的 kind 值 

返回 浮 点 数 * 所 能 接受 .记录 的 数值 中 最 大 2 
的 i1 值 


的 i 值 


返回 参数 类 型 的 有 效 位 数 范 围 


在 函数 中 检查 是 否 有 某 个 参数 传递 进来 


返回 保存 参数 x 所 使 用 的 数字 系统 。 通 党 的 
返回 值 是 2, 代 表 二 进 制 系统 

返回 参数 类 型 所 能 保存 的 最 大 信 域 范围 ,返回 
HJ n (ft X 10n 

返回 要 声明 参数 所 赋值 的 值 域 范围 的 变量 时 ， 
所 应 使 用 的 kind 值 

iR [n] 22 E HH Se E DR TE. p А UE XC 38 CJ. r 
时 的 浮 点 数 所 应 使 用 的 kind 值 


返回 参数 类 型 所 能 保存 的 最 小 的 正 数值 


6. dile Яр 
BIT SIZECD 
BTESTK(1;pos) 
ТА МО(а,Ь) 


IBCLRti. pos) 
IBITSCi. pos.n) 


IBSET(i. pos) 


IEOR(Ca.b) 
ISHFT (a,b) 


ISHFTCt(a.b]| ,size |) 


MVBITS( from, frompos: 


len, to, topos) 


NOTG) 


7. 其 他 困 数 


DATA AND TIME 


(data.time.zone.values) 


RANDOM МОМВЕК (г) 


RANDOM SEED (| size, 
put, get |) 


SYSTEM _ CLOCK (c; сг, 


cm) 


附录 CC 


返回 参数 1 所 占用 的 内 存 位 数 

检查 整数 1 以 二 进 制 保存 时 的 第 pos 个 位 置 的 
bit 是 否 为 1 

对 а,Ь 做 二 进 制 的 逻辑 AND 运算 

返回 把 整数 1 值 以 二 进 制 保存 时 的 第 роз 个 
bit 值 设 为 0 后 的 新 值 

JE H 2C i ELE — E H| D ff BF EJ 5S. роѕ ~ pos n 
位 取出 所 代表 的 值 

返回 把 整数 i 什 以 二 进 制 保 存 时 的 此 pos + 
bit 值 设 为 1 后 的 新 值 

iR EIX} a,b 做 二 进 制 exclusive OR 运算 后 的 全 
返回 对 а,Ь 做 二 进 制 OR 运算 后 的 值 

返回 把 整数 a 以 二 进 制 方法 右 移 b 位 后 的 数值 
返回 把 整数 a 以 二 进 制 方法 右 移 bb 位 后 的 数 
值 , 右 移出 去 的 高 位 数 会 循环 放 回 低位 中 
这 是 子 程序 ,不 是 图 数 。to 是 返回 的 参数 。 取 
出 整数 from 中 的 第 frompos 一 frompos 十 len 
位 的 值 ,重新 设置 整数 to 中 的 topos— toposd 
len 处 的 位 置 


这 是 于 程序 ,不 是 图 数 。 把 当前 的 时 间 返 回 


这 是 于 程序 ,不 是 困 数 。 生 成 一 个 0 到 1 之 
加 的 随机 数值 ,在 参数 rz 中 返回 


这 是 子 程序 ,不 是 函数 。 用 get 数组 来 返回 
目前 所 使 用 来 启动 随机 数 的 “种 子 " 数 值 。 
或 用 put 数组 来 设置 新 的 随机 数 ,启动 “种 
子 "数值 


这 是 库存 于 程序 ,不 是 库存 图 数 。c 会 返回 


程序 执行 到 目前 为 止 的 处 理 需 clock $. сг 


会 返回 处 理 震 每 秒 的 clock 数 ,cm 会 返回 “ 
所 能 保存 的 最 大 值 


FORTRAN ЖЕП d 


变量 类 型 | PRX {НЕШ 


data. time. zone 


为 字符 型 ,values 
为 整 型 数组 


L1] 
[2] 
L3] 
L4 ] 
L5] 
L6 | 
L7] 
L8] 
L9] 
[10] 
[11] 
[12] 
[13] 
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